Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];
ВнизПроблеми при перехвати нажатия кнопки минимизация Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c