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

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

← →
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 вся ветка

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



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