Zugang zu modaler Form verhindern

[rbest]

Hi Kollegen,
wie kann ich verhindern, daß eine modale Form angezeigt wird, wenn eine bestimmte Bedingung nicht zutrifft. Habe es folgendermassen versucht:

Delphi-Quellcode:

  dlgPzDruck := TfrmPzDruck.Create(self);
  dlgPzDruck.ShowModal;

Im FormCreate habe ich dann in etwa solchen Code:

Delphi-Quellcode:

if IchWillKeineForm then
begin
  ModalResult := mrCancel;
  Close; // release führt zum totalen Hänger
end;

Selbiges hab ich auch schon im OnShow und Activate probiert. Was hab ich für einen Denkfehler?

R.B.

[r_kerber]

Hallo rbest,

warum nicht so:

Delphi-Quellcode:

if not IchWillKeineForm then
begin
  dlgPzDruck := TfrmPzDruck.Create(self);
  dlgPzDruck.ShowModal;
end;

[DelphiDeveloper]

weiß ma den vor denm create noch nicht ob man das formular nun haben will oder nicht?

[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

[rbest]

@r_kerber
Klar, das wär das näxte gewesen. Aber die Macht der Gewohnheit - ich komm von FoxPro, dort gibt es eine Init-Methode, die bei Rückgabe von False den Aufbau der Maske verhindert. So brauche ich eine Prüfung, die ja jedesmal zu dieser Form gehört, nur an einer Stelle.

[rbest]

@maximov
exactly. Aber eins verstehe ich trotzdem nicht. Nach showmodal wird auch FormShow ausgeführt. Warum funzt das Close dort nicht?

[maximov]

showmodal wartet so lange bis das madalResult <> 0 ist, da hilft vermutlich auch kein close! Wenn du ModalForm.modalResult := mrAbort setzt (oder was anderes) dann sollte es schliessen

PS: Ich bevorzuge eigentlich selbstgemachte execute methoden, die das alles schön vereinfachen. Weiss jetzt aber nicht was hier erreicht werden soll?

[rbest]

@maximov
was gemacht wird? Zum Bleistift eine Mitarbeiter-Code-Eingabe, bei falschem Code Abbruch. Oder ein SQL-Select, wenn dieser kein Ergebnis liefert, soll die Form nicht auftauchen.

[rbest]

hi maximov, wie gesagt, mit deinem Vorschlag hab ich's hingekriegt. Nur noch der Vollständigkeit halber:

Delphi-Quellcode:

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

bingt bei mir eine Compiler-Warnung, aber nach Änderung von ModalResult in Result meckert sie nicht mehr.
Besten Dank allen Mitdenkern und schönes Wochenende.
BTW, ich finde den Film "Die Passion" entgegen der übertriebenen Medienmeinung sehenswert.