Tjek om projekt er minimeret?

Mener du noget ligesom

if Form1.WindowState = wsMinimized then ShowMessage('Formen er minimeret');

-----------------------------
Jonas (Decko)
http://decko.1go.dk/blog

Mener du noget ligesom

if Form1.WindowState = wsMinimized then ShowMessage('Formen er minimeret');

Ja... men den der virker ikke!

Jeg bruger CoolTrayIcon componet for Delphi og min script til minimering er:

procedure TForm1.MinimizeToTray(Sender: TObject);
begin
    CoolTrayIcon1.IconVisible := true;
    CoolTrayIcon1.MinimizeToTray := true;
  Form1.Visible := false;
end;

Kan nogle se hvad jeg skal gøre for at det virker og at man ikke skal åbne programmet fra processlinjen igen og klikke og så virker det, men at når man første gang klikker kommer mit program ned ved uret?

Hej...


Jeg har fundet fejlen....


Jeg havde fået brug denne kode:

CoolTrayIcon1.IconVisible := false;


og glemt at sætte den tilbage til:

CoolTrayIcon1.IconVisible := true;



Undskyld ulegligheden!