Minimierungsprobleme

[turboPASCAL]

Form Restore / welches Ereignis, Message

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, ... ;

type
  TFormX = class(TForm)
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

  ...

implementation

...

procedure TFormX.WMSysCommand(var Msg: TWMSysCommand);
begin
  case (Msg.CmdType and $FFF0) of
     SC_MINIMIZE: begin
                    TrayIcon.Active := True; // Trayicon Anzeigen
                    FormX.Hide;              // Form verstecken
                  end;
     // SC_RESTORE : ;
     // SC_MAXIMIZE: ;
     // SC_CLOSE:    ;
     else
       inherited;
  end;
end;