Komponente über Ihren Namen ansprechen
16. Dez 2003, 11:30
Hi Leute,
ich habe folgendes Problem: Ich habe eine ListView in welcher die Namen der von mir benutzten Komponenten drinstehen. Also z.B.: Edit1, Edit2, Edit3, usw.
Jetzt möchte ich aus Form1 aus auf die Komponente Edit1 aus Form2 zugreifen, aber nicht über
Form2.Edit1.Text := 'blabla';
sondern über FindComponent. Aber ich habe FindComponent nur so zum Einsatz bewegen können, dass es meine Komponenten unter Form1 gefunden hat, aber nicht unter Form2. Hat jemand eine Idee wie ich des machen könnte?
Habe es auch mit einer Variablen die Typ TObject deklariert ist versucht. Aber ich kann keine Strings in TObject umwandeln.
Mein Versuch war:
procedure Irgendeinbutton
var tmp : TObject
begin
tmp := 'Form2.' + ListView1.Items[0].Caption as TEdit;
end;
Da bringt er mir leider nur die Meldung, dass der Operator nicht auf diesen Operantentyp anwendbar ist.
Wäre schön wenn jemand von Euch ne Idee hat. Greets Ben
--------
Es ist schon über so viele Dinge Gras gewachsen, dass ich keinem Rasen mehr traue.
|