Dort ist nicht viel drin, aber zu Debugzwecken wollte ich das vorhin nun einfach beim Start automatisch ausgelöst haben.
quasi
Delphi-Quellcode:
procedure TFormMain.FormShow(Sender: TObject);
begin
if IsDebuggerPresent then
ButtonStart.Click;
end;
und nun ist das einfach
ButtonStartClick(nil);
was ich aber noch schlimmer finde, als das oben.
Das ist aktuell ein kleines Testprojekt, was nur aus einem Grid, einem Button und
zwei drei Prozeduren plus dem OnShow besteht.