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.