Discussion :

[slimjoe]

Essaie comme cela

Code :

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

1
2
 
messageDLG('test',mtWarning,[mbYes,mbNo],0)

Quelle est ta version de Delphi ?

J'ai aussi le bug des boutons en anglais (Delphi 7 anglais). Jusqu'à maintenant, je m'en suis tiré soit en modifiant Const.pas (pas super cette option ) ou en recodant MessageDlg dans mon application.

Toutefois, MessageBox fonctionne correctement.

[edam]

fichier->nouveau->autre->dialog->dialog standard
facil ,non?
pas la peine de

[Philippe Gormand]

En utilisant tout simplement la méthode Release.

Voir l'aide de DELPHI, c'est très clair.

[edam]

:

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
23
 
        if FindComponent('form'+inttostr(compteuronglet))=nil then
          begin
            Form := TForm.create(nil);
//je préfére            Form := TForm.create(application);
 
            form.show;// la c'est form.showmodal pour vs
            form.:=MaFormClose;
 
dans Tbutton de fermeture
Procedure Tform.button;
begin
       modalresult:=1;
 //ou      Release tt cour si tu préféré show que showmodal
end;
procedure TFDonneesMissions.MaFormClose(Sender: TObject; var Action: TCloseAction);
VAR
    form:TForm;
begin
showmessage('dans maformclose');
form:=TForm(sender);
form.release;// au lieu de free
end;

dans l'aide de delphi:

TCustomForm.Create

TCustomForm Voir aussi

Crée et initialise un nouvel objet TForm.

constructor Create(AOwner: TComponent); override;

Description

Utilisez la méthode Create pour instancier un objet TForm ou un descendant de TForm pendant l'exécution. AOwner désigne le propriétaire de l'objet TCustomForm.

Pour les descendants de TCustomForm qui ne sont pas des objets TForm, utilisez plutôt CreateNew. L'appel de Create pour un descendant de TCustomForm qui n'est pas un TForm déclenchera une exception.

TCustomForm.Release

TCustomForm Voir aussi

Détruit la fiche et libère la mémoire associée.

procedure Release;

Description

Utilisez la méthode Release pour détruire la fiche et libérer la mémoire associée.

Release ne détruit pas la fiche avant que tous les gestionnaires d'événements de la fiche et des composants de la fiche n'aient eu le temps de terminer leur exécution. Tous les gestionnaires d'événement de la fiche doivent utiliser Release à la place de Free. Si vous ne respectez pas cette règle, une violation d'accès risque d'être générée.

Remarque*: Release retourne immédiatement à l'appelant. Elle n'attend pas que la fiche soit libérée.