Hallo
ich versuche eine Control in meiner WinForm zu finden
meine Function
Delphi-Quellcode:
Function Finde(sender : control; const c_name_s : String) : Control;
var
c_ctrl : Control;
begin
Result := NIL;
for c_ctrl in sender.Controls do
begin
//Rekursiv
Finde(c_ctrl, c_name_s);
if (c_ctrl.Name = c_name_s) then
begin
Result := c_ctrl;
Exit;
end;
end;
end;
der aufruf dann g_hf ist die Winform
die control befindet sich in ein Panel
Delphi-Quellcode:
Procedure Test();
var
i : Integer;
c_s : String;
begin
//Namen TextBoxen
for i := 1 to 2 do
begin
c_s := 'B_Text' + i.ToString;
if (Finde(g_hf, c_s) is TextBox) then
begin
(Finde(g_hf, c_s) as TextBox).Text := '';
end;
end;
end;
nur leider macht meine TextBox nix
kann mir jemand weiter helfen?
Homer