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

Вниз

Почему перестает работать кнопка "Свернуть" ?   Найти похожие ветки 

 
Zoom ©   (2010-05-05 18:26) [0]

Кнопка "Свернуть" перестает работать, если выполнить напр.
ShowWindow( Form1.Handle, SW_RESTORE);
при свернутом приложении в панели задач... если приложение не было свернуто, или наоборот "Развернуто" то кнопка "Свернуть" продолжает работать... такая же ситуация после  

SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
SetWindowPos(Form1.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);

Что нужно восстановить в Form1 чтобы форма снова могла сворачиваться  ???


 
~AQUARIUS~ ©   (2010-05-05 19:59) [1]

Нужно не использовать API-функции напрямую с VCL.

SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);


 
Zoom ©   (2010-05-06 04:28) [2]


> Нужно не использовать API-функции напрямую с VCL.

Вы имеете ввиду использовать "SendMessage" - так будет более корректно ?

а как быть тогда например с FlashWindowEx ?
там тоже глюк имеется, нужно отдельно для  Application.Handle и form1.Handle вызывать функцию...


var
 fInfo: FLASHWINFO;
begin
 fInfo.cbSize := SizeOf(fInfo);
 fInfo.hwnd := Application.Handle;
 fInfo.dwFlags := FLASHW_ALL or FLASHW_TIMERNOFG;
 fInfo.uCount := 0;
 fInfo.dwTimeout := 0;
 FlashWindowEx(fInfo);
 fInfo.hwnd := form1.Handle;
 FlashWindowEx(fInfo);


 
~AQUARIUS~ ©   (2010-05-06 20:18) [3]

Рекомендую прочитать: http://delphikingdom.com/asp/viewitem.asp?catalogid=1326



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
2-1311246212
arturich
2011-07-21 15:03
2011.11.13
Вопрос по DevExpress


1-1272500252
SPeller
2010-04-29 04:17
2011.11.13
Можно ли проверить указатель на корректность?


1-1273069609
Zoom
2010-05-05 18:26
2011.11.13
Почему перестает работать кнопка "Свернуть" ?


3-1266257536
GEN001
2010-02-15 21:12
2011.11.13
MSSQL и поле типа TEXT


15-1310657684
R_R
2011-07-14 19:34
2011.11.13
Посоветуйте Remote Desktop для работы через Интернет...