Probleme mit TrayIcon in anderen Formularen

[gangs-taas]

hey,
ich habe in einem Formular(Form4) 31 Trayicons.
und ichm öchte für jeden Tag im monat einen anderen anzeigen.
Also dachte ich ich schreib das hier

Delphi-Quellcode:

procedure TForm1.InTrayschicken1Click(Sender: TObject);
var
Icon : TTrayicon;
TagHeute,Monat,Jahr : Word ;
begin
Decodedate(now,jahr,monat,TagHeute);
Icon := FindComponent('TForm4.TrayIcon' + IntToSTr(TagHeute)) as TTrayicon;
Icon.visible := True ;  // hier breakpoint
Form1.Visible := False ;
end;

aber es geht nicht. Ich bekomme die Meldung "Zugrifsverletzung bei der Adresse irgednwas".
Und icon hat wenn man am Breakpoint nahält den wer nil...

wieso kann ich da so nicht drauf zugreifen, so :

Delphi-Quellcode:

procedure TForm1.InTrayschicken1Click(Sender: TObject);
begin
Form4.TrayIcon2.Visible := True ;
end;

aber schon ?

warum geht das nicht ?

lg ^^

[himitsu]

Delphi-Quellcode:

Form4.FindComponent('TrayIcon' + IntToSTr(TagHeute)...

Der Fehler ist, daß es keine Komponente mit dem Namen "TForm4.TrayIcon*" in Form1 gibt :zwinker:


aber ich empfehle dir nur ein TryIcon zu verwenden, da alle Bilder reinzuladen und dann einfach nur das gewünschte Icon aus der List auszuwählen.

[gangs-taas]

Zitat:

Zitat von himitsu

aber ich empfehle dir nur ein TryIcon zu verwenden, da alle Bilder reinzuladen und dann einfach nur das gewünschte Icon aus der List auszuwählen.

hat das irgendwelche vorteile ?
weil jetzt klappt es ja wie es soll... ^^

danke

[Luckie]

Eine TrayIcon Komponente ist eventuell etwas Ressourcen freundlicher? Desweiteren dürfte der Code auch einfacher zu warten sein.

[jaenicke]

Vor allem ist es dann nur eine Zeile, so wie ich es in dem anderen Thread auch vorgeschlagen hatte...

Delphi-Quellcode:

TrayIconX.IconIndex := ...;

Und schon bist du fertig. Also wozu willst du unbedingt eine derartig unsaubere und im Quelltexte sehr umständliche Herangehensweise benutzen... :roll:

[gangs-taas]

ich weiß nicht ^^
seid ihr böse wenn ich sag ich mag unorthodoxe lösungsmöglichkeitne ? ^^

[jaenicke]

Zitat:

Zitat von gangs-taas

seid ihr böse wenn ich sag ich mag unorthodoxe lösungsmöglichkeitne ? ^^

Dann musst du halt mit den Problemen leben, wenn du dir und den Benutzern der Software (und ggf. anderen, die den Quelltext einmal ändern wollen) das Leben absichtlich schwer machst... :roll:

Solange du nur privat programmierst und nur für dich selbst, dein Problem, solltest du das irgendwann beruflich machen wollen, wirst du so auf die Nase fallen.

[gangs-taas]

okay
ich nehms mir zu herzen ^^
im mom möchte ich aber garnicht, dass andere meine quelltext ändern ^^

ist es so leicht delphi-programme zu decompilieren ?!

[jaenicke]

Zitat:

Zitat von gangs-taas

ist es so leicht delphi-programme zu decompilieren ?!

So meinte ich das Ändern nicht, da bekommt man neben den Formulardefinitionen nur Assemblercode heraus (reicht ja auch). Aber ich z.B. veröffentliche die meisten meiner Quelltexte als Open Source. Oder es arbeiten auch andere an dem selben Projekt mit.
Aber das wäre nicht möglich bzw. Schwachsinn, wenn man unlesbaren oder unsauberen Quelltext (und das vielleicht auch noch absichtlich) schreibt. ;-)

[gangs-taas]

okay
ich verteh was du meinst ^^
absichtlich ist das ja aber nicht :(