Zugriff auf 2 Komponenten

[MicMic]

Also ich mach doch nicht alles richtig *grins
Ich ändere zwar nicht die Komponentennamen aber klar, ich hab unrecht, himitsu hat recht Es geht natürlich so *hihi
Ich mach's dann mal "richtig" Dankeschön
Schönes Wochenende

Micha

[himitsu]

Vieles ist möglich, aber nicht alles sollte man machen und eine typsichere Programmierung beugt einfach so vielen Gefahren vor, sodass es nie verkehrt ist sich dieser Arbeitsweise möglichst anzunehmen.

Sag niemals nie, da es schneller passiert, als du denkst. Vielleicht schon morgen oder in paar Jahren.


Und wenn das z.B. Panels mit je einer ListBox drauf sind:

Delphi-Quellcode:

Procedure TFrom.PanelMouseMove(Sender: TObject...
Var LB : TListBox;
Begin
  LB := TListBox(TPanel(Sender).Controls[0]);

oder sicherheitshalber via LB := (Sender as TPanel).Controls[0] as TListBox; ,
vielleicht noch gefolgt von einem Assert(Assigned(LB)); , bzw. Assert(Assigned(LB), 'irgendwas als Hinweis'); .

[MicMic]

@himitsu
Danke noch für die Info mit "(Sender as TPanel).Controls[0]" usw.
Sicherlich könnte ich noch so einiges optimieren aber gerade hier (mit solchen "Parent" Dingen) würde man wohl manchmal den Überblick verlieren. Meine ListBox ist auch ziemlich erweitert... da passiert viel. Sogar eigene Scrollleisten aus TPanels habe ich. Jetzt wo ich recht weit bin, ärgere ich mich ein wenig, dass ich keine neue ListBox-Komponente gemacht habe, sondern im Code selber alles erweitert habe. Überblick behalte ich nur mit viel viel Kommentarzeilen und es kommt auch vor, da steh ich vor einer Codezeile und frage mich "was hab ich denn da gemacht?" *grins* und muss mir mein eigener Code wieder ein wenig genauer anschauen bis ich es wieder verstehe *lach