Zugriff auf 2 Komponenten

[MicMic]

Danke für die schnelle Info. Dann mach ich ja alles richtig
Aber wegen if Sender = N1 then ... das geht so nicht. "N1" ist ja ein Name, also der Komponentenname vom TPanel (String). So prüfe ich halt, welche ListBox gerade verarbeitet wird/werden muss. Jedenfalls spare ich mir viel Code, wenn ich mir die ListBox in LB zuweise (wie im Beispiel). Nutze auch oft "TListBox(Object). ..." um weniger Code zu haben aber das geht nicht immer. Es kommt halt drauf an... deswegen manchmal das mit dem "LB".
Schönen Abend wünsch ich noch.

[DieDolly]

Zitat:

Aber wegen if Sender = N1 then ... das geht so nicht.

Zitat:

So prüfe ich halt, welche ListBox gerade verarbeitet wird/werden muss.

Genau das will himitsu dir ja beibringen - undzwar wie man es richtig macht.

[himitsu]

Jupp, "N1" ist der Name, und es gibt standardmäßig auch eine Variable, welche "zufällig" genauso heißt, ebenso wie bei deiner ListBox1 : TListBox; .

Der Inhalt vom String "N1" interessiert den Compilier nicht, so lange die Syntax für einen "String" korrekt ist,
aber ob es die Variable N1 gibt, dass bekommt der Compiler mit. Wenn nicht, dann meckert er brav, z.B. wenn jemand auf Idee kommen sollte dem Panel einen besseren Namen zu geben.

[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