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,

zusammenfalten · markieren

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

Application.MainForm.Show & TForm1.Minimize

Application.MainForm.Show & TForm1.Minimize

Re: Application.MainForm.Show & TForm1.Minimize

Re: Application.MainForm.Show & TForm1.Minimize

Forumregeln

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#2 Re: Application.MainForm.Show & TForm1.Minimize 1. Mai 2008, 17:05 Hallo, Wie "minimierst" du ins TNA? Thomas
	Zitat