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.