Hallo zusammen,

wie schließe ich einen modal angezeigten Dialog im Ereignis OnShow.
Folgendes hab ich schon probiert:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TDialog. = class(TForm)
  ...
  private
    CanShow: boolean;
  ...
  end;

procedure TDialog.FormShow(Sender: TObject);
begin
  // Prüfungen ob Dialog angezeigt werden darf negativ:
  CanShow:= false;
  Exit;
  // Code wenn Prüfung positiv
end;

procedure TDialog.FormActivate(Sender: TObject);
begin
  if CanShow=false then ModalResult:= mrCancel;
    // geht nicht Dialog wird trotzdem angezeigt

  if CanShow=false then BitBtnCancelClick(Sender);
   // geht auch nicht Dialog wird trotzdem angezeigt, kann dann aber über BitBtnCancel geschlossen werden

  if CanShow=false then Hide;
    // geht auch nicht Dialog wird trotzdem angezeigt
end;

hat jemand mal einen Tip?

Im OnShow ist es wohl etwas spät. Kannst du das nicht eher überprüfen?

Edit: wobei ein "Close;" reichen dürfte.

if CanShow=false then Close; // Geht auch nicht, Dialog wird angezeigt

Ich möchte nicht früher prüfen, da die Prüflogik im Dialogformular sein sollte.
Der Dialog wird an verschiedenen Stellen aufgerufen und soll so einfach wie möglich sein.
Wenn der Dialog auch kutz aufflackern sollte dann aber wieder zugeht wäre in Ordnung

Zitat von Berni68:

Ich möchte nicht früher prüfen, da die Prüflogik im Dialogformular sein sollte.

Versteh ich jetzt nicht.

If Dialog.Check then Dialog.show oder so ähnlich sollte doch immer gehen?

Richtig, so werd ich es jetzt umsetzen.
Danke
(Manchmal dauert es eben länger bis man morgens auchwacht)

Alternative notlösung falls bestimmung in Methode nicht möglich:

PostMessage(self.Handle, WM_CLOSE, 0, 0);