Hallo,
so drastisch würde ich das nicht ausdrucken,
aber ja, es ist grundsätzlich falsch
Richtig wäre entweder in der
DPR oder im FormActivate des Hauptfensters.
Delphi-Quellcode:
procedure TForm1.FormActivate();
begin
OnActivate:=
nil;
// Mehrfachaufruf von FormActivate verhindern
if not Login
then
begin
PostMessage(
Handle, WM_CLOSE, 0, 0);
Exit;
end;
end;