Hallo,
ich habe eine Komponente die beim Start meines Programmes ein Fenster öffnet.
(es ist ein LoggIn Dialog)
Wie kann ich es erreichen das bei einem nicht erfolgreichen loggin der Start des Programmes abgebrochen wird und das Programm sofort beendet wird.
Im Augenblick mache ich es so:
Delphi-Quellcode:
procedure TRegisterDlg.loaded();
begin
inherited;
IF csDesigning IN ComponentState THEN // Komponente ist zur Designtime (=DragDrop) erstellt worden
BEGIN
Exit;
END;
if FShowonstartup then
begin
showform;
end;
end;
function TRegisterDlg.showForm() : Integer;
begin
IF csDesigning in ComponentState THEN
BEGIN
Exit;
END;
if not Assigned(FRegisterform) then
begin
FRegisterform := TStart.Create(Nil);
end;
if FRegisterform.ShowModal = idCancel then
begin
FRegisterform.Close;
freeAndNil(FRegisterform);
Application.terminate;
end;
end;
Dann wird aber das Fenster des Programmes erst noch fertig erstellt und dann das Porgramm geschlossen.
Wie kann ich den Programmstart abbrechen?
Danke für Eure Hilfe
EarlyBird
Zitat
Baum-Darstellung
