sich von modal geöffneter form lösen...

[markon]

hallo.
eine form wird mit showmodal geöffnet:

Code:

   if (frm_check_fps.ShowModal = mrOK)
     then ausgabe_xyz;

daraufhin kommt das programm irgendwann in eine prüfprozedur:

Code:

 procedure checkit(Sender: TObject);
begin
 if variable_xyz = 0
     then begin
           ModalResult := mrOK; {schliessen der modal-geöffneten form}
           Close;
          end;
end;

diese prozedure wird ja nicht richtig abgeschlossen.
ich möchte also die prozedur verlassen und die modal geöffnete form schliessen.

der aufruf "ModalResult := mrOK;" bewirkt genau sowenig wie das "Close;"

hat jemand ne idee wie ich an dieser stelle die form schliessen kann?
thx

[jim_raynor]

Wo ist denn checkit definiert? In dem Form das geschlossen werden soll ?

[HeZa]

Probier es mal mit Release.

Ciao HeZa

[jim_raynor]

Ähh. Release würde ich nicht unbedingt empfehlen, da dann das Formular wie mit Free zerstört wird.

[markon]

Zitat von HeZa:

Probier es mal mit Release.

Ciao HeZa

dieses release schließt die form immerhin, aber ich kann auf den rest nicht mehr zugreifen.

die vorhergehende form müßte wieder "aktiviert" werden.. wie?

[jim_raynor]

Zitat von markon:

Zitat von HeZa:

Probier es mal mit Release.

Ciao HeZa

dieses release schließt die form immerhin, aber ich kann auf den rest nicht mehr zugreifen.

die vorhergehende form müßte wieder "aktiviert" werden.. wie?

Das kannst du nicht, da das form aus dem Speicher gelöscht wirst. Du müsstest also vor dem Release die Daten im Formular irgendwie Retten (zum Beispiel globale Variablen). Allerdings sei gesagt, dass du das Form dann nicht wieder öffnen kannst oder vorher mit TXXX.Create erstellen musst (XXX muss durch den Formularnamen ersetzt werden).

Diese vorgehensweise ist aber nicht wirklich schön und eigentlich sollte es mit ModalResult funktionieren.

Was ist denn mit meiner ersten Frage, wo checkit definiert ist. Erkennt man ja aus deinem angegeben Quellcode nicht wirklich.

[markon]

also..

wenn die form modal geöffnet wird wird in der sofort nachgeschaut:

Code:

procedure Tfrm_check_fps.FormActivate(Sender: TObject);

in dieser procedure wird dann geprüft:

Code:

procedure Tfrm_check_fps.FormActivate(Sender: TObject);
begin

  if DM_FP.check_db_fp = 0  then ModalResult := mrOK; 

end;

dieses DM_FP ist ein seperates datenmodul.
und check_db_fp ist eine function vom typ integer.

das problem ist wahrschinlich, das das ganz in "FormActivate" steht.
aber ich muss beim aufruf prüfen.

kann man das evtl. anders regeln??

[jim_raynor]

Ja, genau das ist das Problem. Denn nach FormActivate wird ModalResult initialisiert. Du solltest also die Prüfung vor dem ShowModal machen. Am besten du machst dazu eine öffentliche Funktion in das Formular (in public) die true oder false zurück gibt.

[markon]

danke..

werde dann aufruf vor dem showmodal machen...