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;