Ihr wolltet Fragen,hier ist mal eine

Ich versuch gerade, es zu erreichen,dass ein Programm in der TNA steht anstatt in der Taskleiste.Da ich zu wenig Peilung hab,kann ich nur fertigen Code nehmen...
Beispiel 1
Beispiel 2

Problem hierbei ist jedoch,dass sofort zahlreiche Fehlermeldungen ausgegeben werden,es beginnt bei der deklarierten Prozedur im Private Teil und zieht sich durchs komplette Programm.Das ist bei beiden Beispielen der Fall.Ich kann selber wenig dazu beitragen,den Fehler zu finden,da ich wie gesagt bei dem Quelltext überhaupt nicht (oder unzureichend) durchsteige...

Bitte um einen Denkanstoß

PS:
Außer dem Code ist nix in meinem Proggi vorhanden,also andere Komponenten verursachen die Fehler sicher nicht.

PPS:
Hab neuen Code gefunden ->http://www.delphipraxis.net/topic137...&highlight=tna
Leider erkennt er hier das "IconData" nicht...*hmpf*

Hm.. bei mir hat der Code von Luckie damals ganz gut funktioniert, eigentlich ohne Probleme. Wieso erkennt es das nicht? Ist alles eingebunden? Ordentlich deklariert? Also unter D6 und Win XP Home als Admin lief es...

lg Hellie

PS: Unter Delphi 7 auch ohne Probleme, gerade getestet.

Jo geil...tut mir leid,ich hatte das IconData gar nicht deklariert... *schäm* danke

Ok,nächste Frage:
Ist es möglich, eine Message einzublenden wenn die Maus über dem Tray-Icon steht (ähnlich der Ballon-Tipps bei Windows)?
Es muss nicht so aussehen,nur sollte halt ein bestimmter Text darstellbar sein,wenn die Maus überm Icon steht

Edit:
Habs gefunden...so wie es aussieht kann man den Text über "IconData.szTip" definieren

Edit2:
Ok,wie schaff ich es,den Inhalt von bspweise Edit1.Text mit "IconData.szTip" auszugeben?
Fehlermeldung: Inkompatible Typen Array und TCaption.

Jemand ne Antwort auf meine 2.Edit von oben?

StrCopy(IconData.szTip, Edit1.Text); schon probiert?

"Inkompatible Typen: TCaption und PAnsiChar"

Check mal StrPCopy

vop

"Inkompatible Typen: Array und PAnsiChar" ... *hmpf*

Hallo,
habe jetzt den Programmteil selbst ausprobiert - funktioniert einwandfrei mit Delphi 6. Hier die betroffene Zeile: StrPCopy(IconData.szTip, Edit1.text);

Lol,wieder mein Fehler,ich hatte dummerweise "IconData.szTip := StrPCopy(IconData.szTip,Edit1.Text);" getippt

Aber nun tut sich ein neues Problem auf.Ich hab eine Uhr programmiert,die mittels Timer immer die Zeit ausgibt,seitdem sie gestartet wurde.Die Zeit wird in Edit1 angezeigt.Problem ist nun aber,dass der Text des Tray-Icons nicht aktualisiert wird,also er zeigt immer "00:00:00" an,auch wenn die Uhr weiter gelaufen ist.
Wenn ich das Programm jedoch maximiere und anschließend wieder in die TNA minimiere,dann steht dort der Zeitpunkt,in welchem das Programm minimiert worden ist.

Ich häng mal die .dpr Datei ran,die reicht doch,um sich den Quelltext anzusehen oder?

Ich will erreichen,dass die Zeit eben auch Tray-Icon Text abzulesen ist

1. hast du dir eine .dpr schon mal angeschaut?
2. hast du schon versucht deine Zeit jede Sekunde nach szTip zu schreiben?

1.) Ok,ich hab jetzt die .dpr, die .pas und die .dfm drinne,des dürfte wohl gehen
2.) Genauso mache ich es ja

Hallo,

die unten eingefügte Zeile ist die Lösung für dein Problem.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
.
.
StrPCopy(IconData.szTip, Edit1.text);
Shell_NotifyIcon(NIM_MODIFY, @IconData); //**********
end;

Ich habe aber die ganze procedure TForm1.Timer1Timer ein wenig umgebaut. Schau dir Unit1.zip an. Ausserhalb dieser Procedure musste ich ein paar Zeilen ergänzen, die sind alle mit //********** markiert.

Ich danke dir,so hatte ich es mir vorgestellt

PS: Den Timer muss ich mir merken.Wenn man bedenkt,dass meine Version etwa 5 mal so viele Zeilen Quellcode hatte...tja wieder was gelernt

Danke nochmals

Hallo Alex,
jetzt solltest du noch den Status auf erledigt setzten, damit jeder sehen kann, dass dein Problem erledigt wurde.