Вниз
Скачать: CL | DM;

Пуск   Найти похожие ветки 

 
Clift ©   (2003-12-17 16:32) [0]

OnCreate
hTaskBar:= FindWindow("Shell_TrayWnd", nil);
hButton:= GetWindow(hTaskBar, GW_CHILD);
ShowWindow(hButton, SW_HIDE);
OnClose
ShowWindow(hButton, SW_NORMAL);
Работает нормально т.е. кнопка после завершения ВИДНА
а если так
OnCreate
hTaskBar:= FindWindow("Shell_TrayWnd", nil);
hButton:= GetWindow(hTaskBar, GW_CHILD);
SetWindowPos(hButton,HWND_TOP,0,0,0,0,SWP_SHOWWINDOW);
OnClose
ShowWindow(hButton, SW_NORMAL);

то после завершения программы её НЕВИДНО

BringWindowToTop в OnCreate также ничего не дало.
Если SetWindowPos(hButton,HWND_TOP,0,0,0,0,SWP_SHOWWINDOW)
заменить на MoveWindow(hButton,0,0,0,0,True) то ситуация неизменяется.
p.s. Кнопка становится видна лишь после того как попробовать изменить
размеры TaskBar.Я экспериментировал с SWP_и SW_ но ничего не получилось.
Кнопка становилась видимой только после SW_MAXIMIZE но это не то чего я хотел
добиться;)
Как сделать чтобы после того как Пуск перидвинут он стал видимым
(конечно учитывая что в SetWindowPos будет изменяться лишь X координата)


 
chi   (2003-12-17 19:09) [1]

дело в том, что "пуск" дочерняя для Taskbara, поэтому ты меняешь ее координаты только в системе родительского окна(т.е. TaskBar)

вот мой код:
start:=FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", "");
Windows.SetParent(start,desctop);
...
MoveWindow(startnew,LEFT,TOP,FRMWidth,FRMHeight,true);
...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c
1-79719
alextov
2004-02-12 16:25
2004.02.25
Не получается сделать форму шире экрана


9-79536
NailMan
2003-08-13 16:17
2004.02.25
Непонятные глюки со спрайтами и Delphi


7-80302
~GaMeRd~
2003-12-06 16:39
2004.02.25
Работа с Вебброузер(вб)


7-80322
Chery
2003-12-04 15:02
2004.02.25
Обратиться к флопику, открыть с дискеты файл ?


4-80367
SH
2003-12-17 14:17
2004.02.25
Hint в TStringGrid




   Наверх