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

Помогите !!!!!!!!!!!(Как перехватить нажатие кнопки Maximize)   Найти похожие ветки 

← →
_PG_gaws   (2003-04-21 13:18) [0]

ВОТ он вопрос ,Как перехватить нажатие кнопки Maximize !!?

---

← →
Songoku ©   (2003-04-21 16:02) [1]

сначало надо перехватить WM_SYSCOMMNAD а потом SC_MINIMIZE!!!

---

← →
Shurik   (2003-04-27 05:40) [2]

type
TForm1 = Class (TForm)
...
private
procedure WMGetSysCommand (var Message :TMessage); message WM_SYSCOMMAND;
end;

...
implementation
...
procedure TForm1.WMGetSysCommand (var Message: TMessage);
begin
case Message.WParam of
SC_MINIMIZE, SC_MAXIMIZE:
begin
ShowMessage ("Нифига!");
end;
SC_CLOSE:
begin
ShowMessage ("Нифига!");
end;
else
inherited;
end;
end;

Что такое SC_MAXIMIZE, SC_MINIMIZE, SC_CLOSE надеюсь понятно.

---

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

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



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