[FMX] wie Button.Click aufrufen?

[jaenicke]

Zitat von himitsu:

und nun ist das einfach ButtonStartClick(nil); was ich aber noch schlimmer finde, als das oben.

Ist es ja auch, aber es geht mit kaum mehr Aufwand ja auch sauber, Testprojekt hin oder her:

Delphi-Quellcode:

procedure TFormMain.StartRunningCalculation;
begin

end;

procedure TFormMain.ButtonStartClick(Sender: TObject);
begin
  StartRunningCalculation;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  if IsDebuggerPresent then
    StartRunningCalculation;
end;