Форум: "Начинающим";
Текущий архив: 2010.02.07;
Скачать: [xml.tar.bz2];
ВнизКак перехватить событие максимизации формы? Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.02.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c