Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
Delphi 12 Athens
|
AW: Dynamischer Verweis auf Komponente
17. Sep 2018, 11:04
Vielleicht suchst du ja die Methode FindComponent?
Delphi-Quellcode:
procedure TForm325.Button1Click(Sender: TObject);
var
btn: TButton;
edtE: TEdit;
edtP: TEdit;
idx: Integer;
begin
btn := Sender as TButton;
idx := ExtractButtonNumber(btn. Name);
edtE := FindComponent(Format(' Tool%dE', [idx])) as TEdit;
edtP := FindComponent(Format(' Tool%dP', [idx])) as TEdit;
ShellExecute( Handle, ' open', PChar(edtE.text), PChar(edtP.Text), nil, SW_SHOW);
end;
|