Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.30;
Скачать: CL | DM;

Вниз

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

 
Clift ©   (2003-12-17 15:23) [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 координата)


 
Clift ©   (2003-12-17 15:32) [1]

Неужели никто неподкинет какую-то идею?



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

Текущий архив: 2003.12.30;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-99568
arturchic
2003-12-13 22:01
2003.12.30
Delphi 7 и поддержка тем XP


1-99550
bushmen
2003-12-16 11:07
2003.12.30
Лицензия в Delphi7


3-99501
Artemij
2003-12-04 13:04
2003.12.30
Поле Memo в DBGrid


3-99464
Babenko Oleg
2003-12-05 11:03
2003.12.30
dBASE RUS cp866 в TDbf V6.3.0


14-99738
Unregistered
2003-12-08 03:35
2003.12.30
Что это было и где искать вчерашние дискуссии ?