Hallo liebe Community,

ich habe mehrere Listboxen während der Laufzeit erstellt. Jede von ihnen bekommt das gleiche Popup zugewiesen.

Jetzt versuche ich mit diesem Code einen Text in die jeweilige Listbox einzufügen:

markieren

Delphi-Quellcode:

if Rechtsklick.PopupComponent is TListbox then
(Rechtsklick.PopupComponent as TListbox).Items.Add('Irgendein Text');

Es erscheind jedoch kein Text! Wo liegt mein Denkfehler?
Beim debuggen sagt er mir: (Rechtsklick.PopupComponent as TListbox) = Ungültiger Ausdruck im Evaluator!

Liebe Grüße und hoffentlich hilfreiche Antworten
loirad

Was ist Rechtsklick? Klingt für mich wie ein Ereignis. etwas mehr Code wäre, glaube ich, hilfreich.

Rechtsklick wird das PopupMenu sein, sagt mir meine Glaskugel

Ich vermute mal das sollte eher so aussehen,vorausgesetzt dein Rechtsklick.PopupComponent ist auch die entsprechende Listbox (Sender).

TListBox(Rechtsklick.PopupComponent).Items.Add('Irgendein Text');

Zitat von busybyte:

TListBox(Rechtsklick.PopupComponent).Items.Add('Irgendein Text');

So ein harter Cast macht alles nur noch schlimmer.
Wenn man nicht sicher ist mit welcher Komponente man es zu tun hat, dann lässt man sich den Namen ausgeben:

markieren

Delphi-Quellcode:

procedure ShowCompName(c:TComponent);
begin
  if Assigned(c) then
    ShowMessage(c.Name+':'+c.ClassName);
end;

...
ShowCompName(Rechtsklick.PopupComponent);

Naja er hat ja schon ne if Überprüfung auf TListbox, die hab ich nur nicht dazugeschrieben weil ich glaube der Haupt-Fehler liegt in der einen Zeile und denke das
er schon weis das die if-Abfrage dazugehört.
Ich wollte aber noch anmerken das Sender(TObject) prima zum Verweis auf das eigentlich aufrufende Object verwendet werden kann.
Die Casts sind mit den richtigen Typen absolut problemlos und oft sogar notwendig.
Aber ich seh's ein ich hab geschludert und es nicht eindeutig geschrieben.

Rechtsklick ist in der Tat das Popup-Menü.
Dieser Ausschnitt ist ein Teil der Prozedur, die ausgelöst wird bei dem Klick auf ein Element des Popup-Menüs.

@busybyte: Der Code funktioniert leider auch nicht.
@shima: Er gibt mir zurück, dass es eine TListBox ist.

Was hat das hier zu bedeuten:

markieren

Code:

(Rechtsklick.PopupComponent as TListbox) = Ungültiger Ausdruck im Evaluator!

(das gibt er mir beim debuggen zurück, wenn ich über den Punkt dahinter gehe)!
Hat das etwas damit zu tun?

Liebe Grüße und vielen Dank für die Antworten
loirad

PS.: Wenn ihr den gesamten Code sehen wollt, dann sagt bitte nochmal bescheid!

Fehler gefunden!!!
Es lag daran, dass ich im DrawItem etwas hatte, was vor das Item etwas gezeichnet hat *facepalm* !

Vielen Dank trotzdem für eure Hilfe!

Zitat von shmia:

So ein harter Cast macht alles nur noch schlimmer.

Also ich weiß nicht, ich mache es schon seit Jahren so ohne je ein Problem gehabt zu haben. Aber ich gebe zu, bei sowas steht IMMER, und eigentlich ohne Ausnahme, an erster Stelle zuerst eine Abfrage ob Sender die passende Komponente ist. Unter der Voraussetzung weiß ich nicht welchen besseren Zweck die andre Methode hätte. In beiden Fällen gibt es eine Fehlermeldung, bei dem ersten wg. Zugriffsverletzung, bei dem anderen wg. Typenumwandung.

Nicht falsch verstehen, bin bereit meine Einstellung zu ändern, und wenn einer sagt, man macht es so, weil man es so machen soll und das die einzige richtige Art der Programmierung ist, dann bin ich beriet es zu akzeptieren.