Zdarzenie po minimalizowaniu okna

0

Jak wykonać jakąś procedurę po minmalizowani formy. W zakładnace Events nic takiego nie znalazłem

0
  private 
    procedure wmSize( var msg: TWMSize ); message WM_SIZE; 

procedure TForm2.wmSize(var msg: TWMSize); 
begin 
  inherited; 
  case msg.SizeType of 
    SIZE_MAXHIDE: memo1.lines.add('SIZE_MAXHIDE'); 
    SIZE_MINIMIZED: memo1.lines.add('SIZE_MINIMIZED'); 
    SIZE_MAXSHOW: memo1.lines.add('SIZE_MAXSHOW'); 
    SIZE_MAXIMIZED: memo1.lines.add('SIZE_MAXIMIZED'); 
    SIZE_RESTORED: memo1.lines.add('SIZE_RESTORED'); 
  else 
    memo1.lines.add('Unknown size type'); 
  end; 

end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1