Zdarzenie po minimalizowaniu okna

Odpowiedz Nowy wątek
2006-08-18 19:24
0

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

Pozostało 580 znaków

2006-08-18 19:54
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;


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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