Главная страница
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.013 c
3-99455
T
2003-12-05 16:32
2003.12.30
Запрос с группировкой по датам


1-99560
WondeRu
2003-12-18 11:03
2003.12.30
ASM in Delphi


1-99558
azazello
2003-12-18 00:26
2003.12.30
Как добавить 10 строк текста в программу?


7-99797
Tanya
2003-10-23 13:15
2003.12.30
Путь к выполняемому приложению


1-99600
BlackTiger
2003-12-17 12:38
2003.12.30
Можно ли на Canvas-е рисовать в миллиметрах?