Delphi-Cooltrayicon Minimierungsproblem

[MaBuSE]

Zitat von SebastianWe:

danke, mit dem Befehl Application.Restor; anstatt show; hat es funktioniert!

Herzlich Willkommen bei der DP.

Die Lösung von Alcaeus ist besser als TApplication.Restor oder TForm.Show .

Vorgehensweise (am Beispiel Delphi 7):

• Neue Applikation erzeugen (Menü -> Datei -> Neu -> Anwendung)
• Tray Icon Komponente auf Formular legen
• Im Objektinspektor auf Ereignisse gehen und das OnClick Ereignis der CoolTrayIcon1 doppelklicken
• "CoolTrayIcon1.ShowMainForm;" und "CoolTrayIcon1.IconVisible := False;" einfügen
• Entweder in das onCreate Ereignis des Formulars die 2 Zeilen aus demBeispiel unten einfügen oder im Objektinspektor die Eigenschaften direkt der CoolTrayIcon Komponente zuweisen.
• Fertig

Das ist gar nicht schweer

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CoolTrayIcon;

type
  TForm1 = class(TForm)
    CoolTrayIcon1: TCoolTrayIcon;
    procedure CoolTrayIcon1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
  // Formular (Applicarion) sichtbar machen
  CoolTrayIcon1.ShowMainForm;

  // und Tray Icon unsichtbar machen
  CoolTrayIcon1.IconVisible := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Tray Icon erst mal nicht sichtbar
  CoolTrayIcon1.IconVisible := False;

  // Wenn minimieren, dann Tray Icon sichtbar und Form in Taskbar unsichtbar
  CoolTrayIcon1.MinimizeToTray := True;
end;

end.