Hallo zusammen,
wie schließe ich einen modal angezeigten Dialog im Ereignis OnShow.
Folgendes hab ich schon probiert:
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?