SetStrProp(FindComponent('STATUS_1'), 'TEXT', 'Hallo Test')

[cramer]

Hallo Uwe,
ich habe es mal so versucht

Delphi-Quellcode:

var
  edit: TEdit;
begin
  edit := FindComponent('STATUS_1') as TEdit;
  if edit <> nil then begin
    debugStr('status_1 gefunden');
    edit.Text := 'Hallo Test';
  end;
end;

und dabei festgestellt, daß die Komponente nicht gefunden wird.
Da sie aber auf dem Formular ist und auch der Name status_1 ist(a) stellt sich die Frage, in welchem Context FindComponent sucht.
(a) bei der Erstellung wird der Name als Text eingesetzt.

Delphi-Quellcode:

xEdit := TEdit.create(formular);
with xEdit do begin
  parent := formular;
  name   := x_q.fields[i].fieldname+'_1';
  text   := name;
end;

Gruß Uwe