Главная страница
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
4-99825
Дубинин Алексей
2003-11-03 21:46
2003.12.30
Как получить имя исполняемого файла зная его Handle


3-99482
Aleksandr
2003-12-04 13:50
2003.12.30
Что вызывает тормоза скроллинга по RXDBGrid?


3-99475
Labert
2003-12-03 13:54
2003.12.30
ADO и TBlobField в Oracle


1-99589
tuzik
2003-12-17 06:05
2003.12.30
поиск


8-99655
Ilya_
2003-08-27 04:53
2003.12.30
Не могу открыть сохранённый в Delphi 3 bmp файл