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?

[Stony2k]

Japs, weil es ja anfangs gefunzt hat. Doch selbst wenn ich die Zuweisung lösche, beendet sich das Programm nach einem DClick, wie ich bereits sagte..

[freak4fun]

Hallo :hi:,
hast du mal versucht, irgendwo einen Haltepunkt im Programm zu setzen und dann zu schauen, was in deinen Code passiert? :gruebel: Wenn du die Möglichkeit dazu hast würde ich es auf diesen Wege mal versuchen.

MfG
freak

[Stony2k]

Ja schon, aber der Code ist schon was größer und irgentwo nen haltepunkt zu setzen, wäre da nicht sinnvoll. Ich habe eher das Gefühlt, dass es sich hierbei um eine Art "Bug in der Componente" handeln könnte, wo ich gehofft habe, dass es bei anderen Usern auch aufgetreten ist.
Ich kann mir nämlich sonst nicht erklären, wieso anfangs alles ging und es nun aus heiterem Himmel nicht mehr geht.