Componentensuche in Class procedure - Schreibweise...

[erich.wanker]

Hallo Leute...

hab mal eine Frage:
ich erzeuge zur Laufzeit einige Panels
auf eines der Panels erzeuge ich ein Label (name= value_edit1 + Tagwert des Panels) und ein Editfeld(name= edit1+mit Tagwert des Panels)
Wenn ich nun im Editfeld reinschreibe soll das Label den Wert übernehmen... (onChange :=Ttest_pas.editfeld_edit)

Funktionieren tut´s - aber die Geschwindigkeit ist nicht berauschend ;-) ...

Delphi-Quellcode:

class  procedure Ttest_pas.editfeld_edit(Sender: TObject);
var x:Integer;
    y:String;
    gefundenes_label: TLMDSimpleLabel;

begin
with sender as TEdit do
 begin
  x:=tag;
  y:=text;
 end;
  gefundenes_label:= (((sender as TEDIT).Parent as TLMDSimplePanel).FindComponent('value_edit1'+inttostr(x))as TLMDSimpleLabel);
  gefundenes_label.Caption:=y;

end;

Anregungen?

Vielen Dank
Erich Wanker

[Luckie]

Und was hat jetzt der Threadtitel mit dem Inhalt deines Beitrages zu tun?

[mkinzler]

Speichere Referenzen auf die Komponenten bei der Erzeugung