Цитата:
Сообщение от NumLock
Код:
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
...
procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
if Msg.WParam=SC_MINIMIZE then
begin
// do it
end;
inherited;
end;
|
Это я вкурсе, накрайняк придётся так и сделать, проблема в том что форм много и они разные, + создаются динамически и на некоторые мне нужно обрабатывать это сообщение, а на некоторые нет.
Я пишу некий контейнер в котором хронятся ссылки на эти формы и их параметры и хочу чтоб там же обрабатывалось событие миимизации