Zugang zu modaler Form verhindern

[maximov]

Hallo.

Indem du showModal overridest:

Delphi-Quellcode:

type
  TModalForm = class(TForm)
  ...
   function ShowModal: Integer; override;

  end;


...
function TModalForm.ShowModal: Integer;
begin
  if IchWillKeineForm 
  then ModalResult := mrCancel
  else result := inherited showModal;  
end;

sollte gehen