Comment fermer une Fenetre Modal avec Code ?

Salut,
jai le Code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.ShowDlgClick(Sender: TObject); var Form2: TForm2; begin Form2:= TForm2.Create(nil); Try Form2.ShowModal ; ShowMessage('Okay'); finally Form2.free ; end ; end;

---

Dans le OnActivate du Form2 jai le Code:

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm2.FormActivate(Sender: TObject); Begin application.ProcessMessages; Try Info; finally Close; end ; end;

---

Ma Question:
Pourquoi lor de lappele du Close dans Form2, il ne ce passe rien ???
Merci

Close permet de masquer une fenêtre non modale.
Pour fermer une fenêtre modal, il faut que tu affectes une valeur à la propriété ModalResult.

Salut


mets un

[codeModalResult:= 'mrOK';[/code]

dans ton close;

Ou alors mets un Bouton sur ta fiche avec la priété ModalResult à 'mrOK' ou 'mrCancel', c'est comme tu veux le tout est de donner une autre valeur à ModalResult que mrNone...

A plus...

Salut,
jai essaye le Code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm2.FormActivate(Sender: TObject); Begin application.ProcessMessages; Try Info; finally ModalResult:= MrOk; end ; end;

---

il ne se passe toujour rien !!!

C'est normal, tu es dans l'évènement onActivate. Il ne faut pas que tu affectes une valeur au ModalResult dans un évènement de ce style.

Oui mets le dans un évènement de fermeture de fenêtre c-à-d dans ton OnClose ce serait bien...

Normal il faut un close aussi ;)

Citation:

---

Envoyé par Clorish

Normal il faut un close aussi ;)

---

:nono:

tu veux afficher ta forme modal , afficher votre info puis férmer sans l'aide de l'utilisateur, c'est sa
alors plutot soit utilisé un timer soit un postmessage, dans l'un ou l'autre ajoute:

Code:

---

modalresutl:=1;

---

ou une autre valeur >0
n'apel pas free apel plutot release
pour moi je crée dans la fenétre modal une function comme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

//la c'est une forme qui retourn un date et contient qu'une TMonthCalendar var Form7: TForm7; Function GetDates(var d:TDateTime):integer; implementation   {$R *.dfm} var dat:TDateTime; Function GetDates; begin dat:=d; Form7:= TForm7.Create(application); result:= Form7.ShowModal; if result=1 then d:=dat ; Form7.Release ; end; procedure TForm7.MonthCalendar1DblClick(Sender: TObject); begin dat:=MonthCalendar1.Date ; modalresult:=1; end;

---

ha bon.
autant pour moi .... Mais il faut pas faut un close quand meme pour fermer la fiche ?
Je pensais que le close etait court circuite tant que ModalResult n'est pas affecté ... genre avec un CanClose.

Citation:

---

Envoyé par Clorish

ha bon.
autant pour moi .... Mais il faut pas faut un close quand meme pour fermer la fiche ?
Je pensais que le close etait court circuite tant que ModalResult n'est pas affecté ... genre avec un CanClose.

---

L'affectation d'une valeur positive à ModalResult provoque le retour de la fonction ShowModal et le masquage [pas la destruction] de la fenêtre.

Oki merci ... c bon a savoir ;)

ca ne marche toujour pas !!!
Je crois, pour fermer une Fenetre Modal, il faut un User Click.
Paceque jai mis un TButon sur la Fiche avec un OnClick Event qui a pour Code: ModalResult:= MrOk et ca a marché.
si je fais ModalResult: MrOk sans le Button ca ne donne auqun effet ???.
Mon But c de faire une Fenetre Modal pendant un Traitement Long, et apres le traitement, la Fenetre Modal doit appeler Self.Close automatiquement.

Citation:

---

Envoyé par edam

tu veux afficher ta forme modal , afficher votre info puis férmer sans l'aide de l'utilisateur, c'est sa
alors plutot soit utilisé un timer soit un postmessage, dans l'un ou l'autre ajoute:

Code:

---

modalresutl:=1;

---

ou une autre valeur >0
n'apel pas free apel plutot release

---

Non ca ne marche toujour pas.
jai essaye mais apres le release, ya la Fiche1 qui perd le Focus pour toujour
???
tu vien ou du maroc

fes je bosse a casa et toi???
tu as utilisé un timer ou qoi exactement
donne votre code

moi suis de Kenitra.
Bon pour le Code je vais faire autrement, car je ne vois pas de Soluce,
jai essayé beacoup de Combination, mais le Programm oubien il plante
oubien il ne se passe rien.
Merci a tous

a prpos ta fiche modal n'est pas crée par hasar au démarage voir dans le projet.dpr

:furieux: :resolu:

Salut,
non elle né pas creer dans le code du project.
oui mais jai procedé autrement.
A+