Проблеми при перехвати нажатия кнопки минимизация [D6, Win2k]
tararasyk © (2002-09-24 01:14:00)
Почему если я использую перехват минимизация форма "замерзает"
(нельзя двигать).
Как правильно использовать
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:00) [1]
При перекрытии стандартного обработчика надо вызывать
Inherited или по крайней мере назначать Result для Message
Наверх 
ЧАТ |
Орешник |
|
