Lazarus / fpc: Mehrfaches OnWindowStateChange()

[Linux-Frickler (Gast)]

Hi,
ich habe ein Problem mit dem Ereignis TForm.OnWindowStateChange. Dieses 
wird bei mir mehrfach ausgelöst - der Grund erschließt sich mir auf den 
1. Blick nicht. (Bug in LCL mag ich nicht ausschließen, aber ich bin 
doch nicht der erste, der das merken müßte...)

Was ich will:
Wenn das Fenster (bei mir einziges Fenster des Programms, keine 
Children) minimiert wird, dann soll es ausgeblendet werden und ein 
TrayIcon erscheinen. Wenn ich auf das TrayIcon klicke, dann soll das 
Fenster wieder erscheinen.

Was ich tue:

procedure TMainform.FormWindowStateChange(Sender: TObject);
var ws: TWindowState;
begin
  ws:=WindowState;
  if ws=PrevWindowState then exit;

  WriteLn(GetTickCount64:20, ' ws: ', ws, ' prev: ', PrevWindowState);
  case ws of
    wsMinimized : OnMinimize;
    wsNormal,
    wsMaximized : ;
  end;
  PrevWindowState:=ws;
end;

procedure TMainform.OnMinimize;
var trayicon: TTrayIcon;
begin
  if Data.ProperShutdown then exit;
  if Data.MinimizeToTray then begin
    trayicon:=Data.TrayIcon;
    trayicon.OnClick:=@OnTrayIconClick;
    trayicon.Show;
    Application.ProcessMessages;
    self.Hide;
  end;
end;

procedure TMainform.OnRestore;
var trayicon: TTrayIcon;
begin
  if Data.ProperShutdown then exit;
  if Data.MinimizeToTray then begin
    trayicon:=Data.TrayIcon;
    trayicon.OnClick:=nil;
    trayicon.Hide;
    Application.Restore;
    self.Show;
    self.WindowState:=wsNormal;
    Application.ProcessMessages;
  end;
end;

OnRestore wird vom TrayIcon ausgelöst

Was passiert:
Selten funktioniert es. Ganz oft blitzt das Fenster kurz auf und 
verschwindet gleich wieder und das TrayIcon erscheint sofort wieder - 
als ob es nach dem Restore gleich wieder minimiert würde.

Was genau passiert:
Habe mir mal eine Debug-Ausgabe gebastelt, um das Verhalten 
nachvollziehen zu können. Der Tray-Handler wird aufgerufen, erfolgreich 
beendet. Dann kommen die WindowState-Ereignisse: auf, zu :(
Vom Timing her sieht das so aus (vorne der GetTickCount()):
  Restore enter
  Restore leave
             3478183 ws: wsNormal prev: wsMinimized
             3478184 ws: wsMinimized prev: wsNormal
             3478191 ws: wsNormal prev: wsMinimized

WTF??? Das Timing hängt ein bißchen vom Rechner ab. Auf dem alten Laptop 
sind es durchaus mal 10ms zwischen 1. und 3. Ereignis.
Habe spasseshalber eine Abfrage in OnWindowStateChange gemacht, daß er 
erst wieder 100ms nach Restore auf Minimize reagiert. Das funktioniert, 
aber schön ist anders.

Kennt jemand das Phänomen? Kann mir jemand auf die Sprünge helfen, was 
ich falsch mache? So kompliziert kann das doch nicht sein?
VG Frickler

Lazarus Version 1.6
FPC Version 3.0.0
aktuell nur auf PC mit Linux Mint, raspberry mit OSMC bzw Debian kommt 
noch

[Gerald B. (geraldb)]

Linux-Frickler schrieb:
> Lazarus Version 1.6
> FPC Version 3.0.0

Lazarus Version 1.6 ist mitlerweile 4,5 Jahre alt!
Warum verwendest du nicht die aktuelle Version 2.0.10?