Вниз
Скачать: 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.026 c
3-79679
OLEG
2004-01-30 10:49
2004.02.25
КАК Длинную строку в базу


1-79865
h0use
2004-02-09 16:58
2004.02.25
Работа в D8


14-80189
NeyroSpace
2004-01-30 16:01
2004.02.25
Пятница расслабьтесь на здоровье Ж:-)


1-79943
афвуд
2004-02-09 16:00
2004.02.25
Уникальный ключ.


1-79723
Senator
2004-02-12 16:53
2004.02.25
Версии Delphi




   Наверх