Cool Tray Icon - Programm beendet sich bei einem Doppelklick

[Stony2k]

Hi,

ich benutze die Componente Cool Tray Icon, vonhier.
Diese hat hat ein Doppelklick ereignis, welche ich dazu benutzt habe, die Eigenschaft "Visible" der Form wieder auf true zu stellen und die Visible-Eigenschft des Icon auf False, damit man es nicht mehr in der TNA sieht. Nun habe ich aber das Problem, dass bei einem Doppelklick darauf das Programm beendet.

So sieht die Prozedur aus

Delphi-Quellcode:

If frm_Schiffskontrolle.Showing = True Then frm_Schiffskontrolle.Hide;
If frm_TextToClient.Showing = True Then frm_TextToClient.Hide;
CoolTrayIcon1.ShowMainForm;
CooltrayIcon1.IconVisible:=false;

Dort steht nichts drin, dass das Programm zum Schließen veranlassen könnte. Vielleicht hat ja jemand das selbe Problem oder weiss eine Lösung :)

[mumu]

vielleicht schließt du das programm ja auch nicht, sondern versteckst eventuell nur das trayicon

siehe ---> CooltrayIcon1.IconVisible:=false;

[Stony2k]

Ja, das Tray Icon soll ja auch versteckt sein. Aber dort steht ja auf .showmainform.. ausserdem sit dann das Programm nicht mehr am laufen, sprich auch die .exe nicht mehr im Task Manager zu sehen.

[mumu]

dann probier mal
CoolTrayIcon1.ShowMainForm := true;

[Stony2k]

Das Problem ist.. früher ging es, also auch nur mit .showMainForm etc.. und auf einmal nicht mehr.
Selbst wenn ich die Prozedur löschen und nichts mehr drin steht, beendet sich das Programm nach einem doppelklick auf das Tray Icon.. und das ist recht merkwürdig.

[barf00s]

ja wenn die CoolTrayIcon componente aufnem Form iss, dann kammer doch über die methoden die CTI einem bereitstellt sich das formular anzeigen/verstecken lassen

[Stony2k]

CoolTrayIcon1.ShowMainForm;

Das hat ja bis vor kurzem auch gefunzt.. doch egal was ich dort reinschreibe, das Programm wird komischerweise immer beendet..

[derpepe]

Dein Code ist prinzipiell korrekt.
Ich könnte mir nur vorstellen, dass die Reihenfolge nicht stimmt.

Delphi-Quellcode:

CoolTrayIcon1.ShowMainForm;
CooltrayIcon1.IconVisible:=false;
// Soweit stimmts auf jeden Fall, hab ich auch schon so verwendet
// Evtl. hier noch ein Application.ProcessMessage(); einfügen!??
If frm_Schiffskontrolle.Showing = True Then frm_Schiffskontrolle.Hide;
If frm_TextToClient.Showing = True Then frm_TextToClient.Hide;

Sonst probier mal die letzten zwei Zeilen wegzulassen und schau mal ob es dann geht.
Ich vermute den Fehler irgendwo in den Hide-Methoden deiner zwei Forms.

[Stony2k]

Ja, ich teste es mal.
Doch wenn ich die prozedur komplett leer mache, sodass nichts mehr drin steht und dann doppelt auf das Icon klicke, dann beendet sich das Programm komischweise auch.. ich verstehe das nicht.

[fylo]

Hi

Hast schon mal geschaut ob eventuell im Objektinspektor die Zuweisung für das Doppelklick-Event auch wirklich auf deine Prozedure zeigt?