Как перехватить событие максимизации формы?

← →
TAzimut (2009-12-10 11:10) [0]

Как перехватить событие максимизации формы для выполнения своего действия в программе? Нужно сделать автовыравнивание колонок ListView.

← →
oldman © (2009-12-10 11:23) [1]

OnResize?

← →
Рамиль © (2009-12-10 11:23) [2]

procedure WMSysCommand(var msg: TWmSysCommand); message WM_SYSCOMMAND; ... procedure TForm1.WMSyscommand(var msg: TWmSysCommand); begin case (msg.CmdType and $FFF0) of SC_MINIMIZE: SC_RESTORE: SC_MAXIMIZE: end; inherited; end;

← →
TAzimut (2009-12-10 11:34) [3]

>Рамиль. Спасибо Рамиль! Попробую,отпишусь..

← →
TAzimut (2009-12-10 11:49) [4]

Почему-то не пашет перехват, никаких действий при максимизации прога не делает :( Сделал так:
procedure WMSysCommand(var msg: TWmSysCommand); message WM_SYSCOMMAND; закинул в приват деклар.
Потом написал следующее:
procedure ListTouch;
begin
Form1.ListView1.SetFocus;
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(VK_ADD, 0, 0, 0);
keybd_event(VK_ADD, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
case (msg.CmdType and $FFF0) of
{SC_MINIMIZE:
SC_RESTORE: }
SC_MAXIMIZE: ListTouch;
end;
inherited;
end;

Как перехватить событие максимизации формы? Найти похожие ветки