Скачать: CL | DM;

Проблеми при перехвати нажатия кнопки минимизация   Найти похожие ветки 

← →
tararasyk ©   (2002-09-24 01:14) [0]

Почему если я использую перехват минимизация форма "замерзает" (нельзя двигать).
Как правильно использовать

xPos = LOWORD(lParam);
yPos = HIWORD(lParam);


Кусок кода :

Type Form1 = class(TForm)
....
protected Procedure WMGetSysCommand(var Message :TMessage);message WM_SYSCOMMAND; end;

...

Procedure TForm1.WMGetSysCommand(var Message : TMessage) ;
Begin

if (Message.wParam = SC_CLOSE)
then Form1.Close ;

if (Message.wParam = SC_MINIMIZE)
then
begin
Form1.RxTrayIcon1.Active:=true;
Form1.Hide
end
else Form1.Show;

End;


Заране благодарен за все ответы

---

← →
MBo ©   (2002-09-24 06:28) [1]

При перекрытии стандартного обработчика надо вызывать Inherited или по крайней мере назначать Result для Message

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c