Einzelnen Beitrag anzeigen

Benutzerbild von Delphi-Narr
Delphi-Narr

Registriert seit: 29. Aug 2009
Ort: Duisburg
437 Beiträge
 
Delphi 2007 Professional
 
#1

Text eines zur Laufzeit erstellten Editfeldes

  Alt 28. Jan 2010, 21:43
Hallo, ich habe folgendes Problem:

Ich habe mehrere Editfelder, die zur Laufzeit erstellt werden. Diesen möchte ich sowohl ein OnChange zuweisen, in dem ich die Texte auswerten kann und in andere zur Laufzeit erstellten Objekten den Text ändern kann.


Delphi-Quellcode:

var Eingabe:TEdit;

procedure TForm1.Erstellen;
begin
     Eingabe:=Tedit.create(Self);
     Eingabe.parent:=TForm1;
     Eingabe.OnChange:=EditsChange;
end;


procedure TForm1.EditsChange(Sender:TObject);
var text, neu:string;
begin
     //Ich komme zwar hier an, doch ich kann nichts auslesen, da es sich um ein TObject handelt.
     text:=Sender.text;

     neu:=text+'asd';
     
     //Hier möchte ich den Text der anderen Objekte ändern (Namen, Typ, Position etc. habe ich alles und lässt sich
     //aus den Werten von Sender errechnen

     AnderesEdit.text:=neu;
     AnderesEdit2.text:=neu+text;
     
     //usw.
end;

Wie kann ich es verwirklichen, ein TObject in ein TEdit "umzuwandeln" und ein Objekt nur über einen in einer Variable gespeicherten Namen anzusprechen?

Liebe Grüße!
  Mit Zitat antworten Zitat