Discussion :

[Soulama]

Salut,
jai le Code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MD Software]

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.

[lapec_and_cie]

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...

[Soulama]

Salut,
jai essaye le Code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[MD Software]

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.

[lapec_and_cie]

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

[Clorish]

Normal il faut un close aussi

[MD Software]

Normal il faut un close aussi

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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.

[MD Software]

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.

[Clorish]

Oki merci ... c bon a savoir

[Soulama]

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

modalresutl:=1;

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

[Soulama]

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

[edam]

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

[Soulama]

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

[edam]

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

[edam]

[Soulama]

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