Ja, gerade eben:
Delphi-Quellcode:
procedure TForm1.WndProc(var Message: TMessage);
begin
case Message.Msg of
WM_SIZE:
if(Message.wParam = SIZE_MINIMIZED) then begin
MessageBox(self.Handle,'yo',nil,0);
exit;
end;
{ ... }
end;
inherited WndProc(Message);
end;
Bei SIZE_MINIMIZED passiert auch hier nichts, SIZE_MAXIMIZED dagegen zeigt die MessageBox wieder an.