Einen Button klicken

[Popov]

Zitat von Sugar:

Tbutton(t).Click

Wobei T eine simple Variable vom Typ String ist.

Also man kann das irgendwie schon machen, aber man sollte da aufpassen, dass das einem nicht um die Ohren fliegt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hallo Welt!');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ButtonName: String;
begin
  ButtonName := 'Button1';
  if FindComponent(ButtonName).ClassType = TButton then
  begin
    TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONDOWN, 0, 0);
    TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONUP, 0, 0);
  end;
end;

Wenn man das Ganze auch noch schön in eine Prozedur auslagert, dann kann man wuderbar auf jeden Button über Namen zugreifen:

Delphi-Quellcode:

procedure StringButtonClick(Form: TForm; ButtonName: String);
begin
  with Form do
    if FindComponent(ButtonName).ClassType = TButton then
    begin
      TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONDOWN, 0, 0);
      TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONUP, 0, 0);
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  StringButtonClick(Form1, 'Button1');
end;

[DeddyH]

Auch wenn ich mich wieder unbeliebt mache:

Delphi-Quellcode:

procedure ClickButtonByName(AOwner: TComponent; const ButtonName: string);
var
  Component: TComponent;
begin
  Component := AOwner.FindComponent(ButtonName);
  if Assigned(Component) and (Component is TButton) then
    TButton(Component).Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ClickButtonByName(self, 'Button1');
end;

Man kann natürlich auch noch Exceptions werfen, wenn die Komponente nicht gefunden wurde oder kein TButton ist, ich hab hier darauf verzichtet.

[Sugar]

Well, cool!
Danke für die Tipps.

Ich bin morgen wieder vor dem PC und probiere man.

Heißen Dank für die Tipps bis hierhin1

[mkinzler]

Mit Zynismus ist aber auch keinem geholfen.

[DeddyH]

Du hast Recht, die Fehlermeldung "Zugriffsverletzung bei Adresse 0x000000004" ist natürlich aussagefähiger als "Komponente Button1 nicht gefunden", und

Delphi-Quellcode:

TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONDOWN, 0, 0);
TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONUP, 0, 0);

ist um Einiges anfängerfreundlicher als
TButton(Component).Click;