Application.MainForm.Show & TForm1.Minimize

[sk0r]

Hi,

ich möchte meine Anwendung ins Systemtray befördern, sobald
man auf "Minimieren" klickt. Per Rechtsklick auf das Trayicon
zeigt sich das Programm wieder. Das Problem ist, dass das Programm
dann aber eigentlich noch den minimierten Status hat, obwohl es
gezeigt wird. Deshalb reagiert dann der Minimiere-Button nicht mehr,
solange bis ich mit Rechtsklick->Wiederherstellen das Programm
wieder hergestellt habe.

Weiß jemand, wie ich das Problem lösen kann?
Danke schon mal für Hilfe im Vorraus.

MfG: sk0r

[toms]

Hallo,

Wie "minimierst" du ins TNA?

[sk0r]

Hi,

Delphi-Quellcode:

procedure TForm1.AppMinimize(Sender: TObject);
begin
  TrayIcon.cbSize := sizeof(TrayIcon);
  TrayIcon.Wnd := Handle;
  TrayIcon.uID := 0;
  TrayIcon.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  TrayIcon.uCallbackMessage := WM_TRAYICON;
  TrayIcon.hIcon := Application.Icon.Handle;
  TrayIcon.szTip := 'Name';
  Shell_NotifyIcon(NIM_ADD, @TrayIcon);
  Application.MainForm.Hide;
end;

MfG: sk0r