[an error occurred while processing this directive]
|
Что-нибудь типа:
TForm1 = class(TForm)
procedure MyHandler(var msg: TMessage); message WM_SHOWWINDOW;
.....
procedure TForm1.MyHandler(var msg: TMessage);
begin
if msg.WParam = 0 then ShowMessage('Minimized');
end;
E-mail: info@telesys.ru