Einzelnen Beitrag anzeigen

Funky-Sepp

Registriert seit: 14. Okt 2003
Ort: Freudenricht/Velburg
56 Beiträge
 
#5

Re: Komponenten dynamisch aufrufen

  Alt 10. Dez 2003, 12:01
Ich hab das ja auch anders gemeint.

Ich hab z. B. 10 Editfelder:
Edit1
Edit2
Edit3
...
Edit10

dann eine SpinEdit
und einen Button:

Delphi-Quellcode:

procedure TForm1.ButtonClick( Sender : TObject );
begin
  ShowMessage( ( FindComponent( 'Edit' + IntToStr( SpinEdit.Value ) ) as TEdit ).Text );
end;
So jetzt gebe ich im Edit3.Text = 'Hallo' ein
und in der SpinEdit.Value = 3
drücke auf den Button
und er gibt mir den Text der in Edit3 hinterlegt ist als message aus.
Wolfgang
  Mit Zitat antworten Zitat