Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.02.07;
Скачать: 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 вся ветка

Текущий архив: 2010.02.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
15-1258160992
TIF
2009-11-14 04:09
2010.02.07
SPDY - скоростная альтернатива HTTP от Google


1-1236164057
dmitry1208197320
2009-03-04 13:54
2010.02.07
Управление размерами картинки при её вставке в Word


15-1259593736
ocean
2009-11-30 18:08
2010.02.07
Сколько стоит заказ?


15-1259703017
Юрий
2009-12-02 00:30
2010.02.07
С днем рождения ! 2 декабря 2009 среда


2-1260513762
Б
2009-12-11 09:42
2010.02.07
Array char -> String