Minimieren und aus Taskbar ausblenden (TCoolTrayIcon )

[Bastler]

Hi;

Ich hab zwar schon ne Zeit lang gesucht im Forum, vermutlich nicht lang genug oder unter den flaschen Begriffen, da ich mir nicht vorstellen kann, das es hier nirgends steht, aber ich frage jetzt trotzdem:

Ich möchte ganz einfach, dass beim minimieren das Programm nur noch im Tray ist und nicht mehr in der Taskleiste.

Ich habe eigentlich gedacht es kalppt mit:

Delphi-Quellcode:

Application.OnMinimize := Cooltrayicon1.HideMainForm;

nur leider sagt mir dann der Compilier:

Zitat:

[Fehler] Unit1.pas(71): Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'

Was habe ich falsch gemacht ? Bzw. falsch verstanden? Das ganze steht in Form1.Create.

Danke für die Antworten und diejenigen, die solche o.ä. Fragen schon zu oft gelesen haben, mögen mir verzeihen.

[Daniel B]

Hi,

ich mein das diese Komponente HideTaskbarIcon beistzt und man damit dies noch ausblendet, schau nochmal nach, ich habe es z.Z. nicht installiert.

[TBx]

Hallo!

Guck z. B. mal hier.

Hope it helps

onlinekater

[Edit]
@Api: Da hast Du wohl recht, habe es nur allgemein anhand des Threadtitels bearbeitet.
@Threadersteller: Ändere doch bitte Deinen Titel, damit hervorgeht, daß es Dir um die Handhabung von TCoolTrayIcon geht.
[/Edit]

[API]

Zitat:

Zitat von onlinekater

Hallo!

Guck z. B. mal hier.

Hope it helps

onlinekater

Die Frage bezieht sich ja auf die TCoolTrayIcon Komponente.

Wenn ich mich recht erinnere, besitzt die TCoolTrayIcon Komponente ein Ereignis OnMinimize (o.ä)
Dort schreibst du einfach Cooltrayicon1.HideMainForm

[RavenIV]

Delphi-Quellcode:

  
procedure TMyForm.FormClose (Sender: TObject; var Action: TCloseAction);
begin
  CoolTrayIcon.MinimizeToTray := True; // ermöglichen, dass ins Tray minimiert werden kann
  MyForm.Hide; // Formular verstecken
end;
procedure TMyForm.FormHide (Sender: TObject);
begin
  CoolTrayIcon.MinimizeToTray := True; // ermöglichen, dass ins Tray minimiert werden kann
  MyForm.Hide; // Formular verstecken
end;

und evtl dies auch noch

Delphi-Quellcode:

procedure TMyForm.FormShow (Sender: TObject);
begin
  CoolTrayIcon.HideTaskbarIcon; // Eintrag in Taskbar ausblenden
end;

[Bastler]

Naja, die Frage is mehr, wie ich auf das Minimieren zugreife, also wie schreibe ich nen Befehl, der dafür sorgt, dass wenn ich auf das Minimieren-Symbol, neben Maximiereun und Schließen, oben im Festern klicke, das hier ausführt

Delphi-Quellcode:

CooltrayIcon1.HideMainForm;

Hätte evtl irgednwer nen enstrechenden Codeschnipsel für mich?

Danke

[Daniel B]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure OnAppMessage(var Msg: TMsg; var Handled: Boolean);
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

  public
    { Public-Deklarationen }
  end;

Delphi-Quellcode:

procedure TForm1.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_SYSCOMMAND) and (Msg.wParam = SC_MINIMIZE) then
  begin
    Handled := True
  end else
    Handled := False;
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType = SC_MINIMIZE) then
  begin
    //Wenn es miniert wird
    Application.Minimize;
    LMDTrayIcon1.Active := True; // <--- Hier also Dein Code...
  end else inherited;
end;

[Bastler]

Dankeschön !!!
Klappt wunderbar...
:thumb: