[Lazarus] Jak przechwycić komunikat o minimalizacji okna aplikacji?

Witam!

Próbowałem zastosować coś takiego
procedure TForm1.WMSysCommand(var Message:TWMSysCommand); begin if (Message.CmdType and $FFF0=SC_MINIMIZE) then WindowState:=wsMinimized else inherited; end;
...ale w Lazarusie chyba nie ma "TWMSysCommand", bo dostaję komunikat: Unit1.pas(18,54) Error: Identifier not found "TWMSysCommand".

Czy ma ktoś jakiś inny pomysł może? Dodam, że sprawa dotyczy konkretnie środowiska Lazarus.

---

Nie wiem, czy jest tak w Lazarusie, ale w moim D7 na zakładce Additional jest komponent TApplicationEvents, a w nim zdarzenie OnMinimize ;)

@down: Może to Ci pomoże :)
Użytkownik DJ_ProG edytował ten post 30 wrzesień 2006, 14:09

Nie wiem, czy jest tak w Lazarusie, ale w moim D7 na zakładce Additional jest komponent TApplicationEvents, a w nim zdarzenie OnMinimize ;)

W Lazarusie nie ma komponentu TApplicationEvents. Jest TApplicationProperties, ale on nie zawiera zdarzenia OnMinimize. :(

ZDARZENIE ZOSTAŁO DODANE W WERSJI 0.9.21 :)
Użytkownik Janusz T. edytował ten post 03 grudzień 2006, 10:59
unit minimalizacja;

interface

type
Tform1=class(TForm)
private

public
procedure minimalizacja(var MSG:TMessage); message WM_MINIMIZE;

protected
end;

implementation

procedure Form1.minimalizacja(var MSG:TMessage);
begin
{tu piszemy, co ma zrobić program, jak wystąpi komunikat}
end;
end.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl