Amoeba

← →
Марат (2003-10-22 15:46) [0]

Нельзя ли подробнее. В справке про WM_SysCommand я ничего не нашел.

← →
Семен Сорокин (2003-10-22 15:56) [1]

ты не в той справке искал

← →
Amoeba (2003-10-22 15:58) [2]

1. Надо смотреть справку по API

2. Делаем так:

ручками добавлям данной форме метод

procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;

и его реализацию

procedure Form1.WMSysCommand(var Message: TMessage);
begin
if Message.wParam = SC_MINIMIZE then
begin
//здесь делаем то, что нам надо
end;
inherited;
end;

Amoeba Найти похожие ветки