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