Hi, ersteinmal ein Riesen Dank, dass ihr so zeitnah antwortet
Ich habe das auch gemacht und poste meiner Form die WM_Close Nachricht, dannach schliesst es,
so wollte ich das auch, aber mein Button Abbrechen funktioniert dann nicht, zurzeit habe ich es so:
Delphi-Quellcode:
procedure TWaitForLoaderGUI.FormActivate(Sender: TObject);
begin
while (aSCI.GetQBytes <> 25) do
begin
Application.ProcessMessages;
Sleep(1);
if Self.ModalResult <> mrNone then exit;
if Application.Terminated then exit;
end;
Self.ModalResult:=mrOk;
PostMessage(Self.Handle, WM_CLOSE, 0, 0);
end;
procedure TWaitForLoaderGUI.BitBtn1Click(Sender: TObject);
begin
Self.ModalResult:=mrCancel; // Hier soll er das Form schliessen...
end;