Discussion :

[cincap]

Bonjour à toutes et à tous,

Est-ce possible de centrer toutes les boites de dialogues sur la fiche sans trop de code ?

Dans le temps, j'avais une unité qui le permettait mais il faut que je fouille dans mes anciens disques dur pour retrouver l'application de démo.

Si je retrouve je communiquerai au forum

En vous remerciant.

@+,

cincap

[pprem]

Bonjour

Qu'entends-tu par "boite de dialogue" ? Les fiches que tu crées par code ou les boites de dialogue du style showmessage() & co ?

[cincap]

Bonjour à toutes et à tous, @ pprem, merci de ta réponse.

Cela concerne TOpenDialog, TSaveDialog, TColorDialog, TPrintDialogue etc... et les messages Msdlg.

Je viens de retrouver l'application de démo que j'avais réalisée à l'époque et je recherche l'unité pour y parvenir.

Je vous tiendrai au courant.

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

Apparemment ma question ne pourra pas être résolue sauf si j'utilise l'unité adéquate qui permet de le faire.

Pour le message dlg :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function MessageDlg(const AOwner: TForm; const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Integer = 0): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      Left := AOwner.Left + (AOwner.Width - Width) div 2;
      Top := AOwner.Top + (AOwner.Height - Height) div 2;
      Result := ShowModal;
    finally
      Free;
    end
end;

Utilisation :

Code :

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

1
2
 
MessageDlg(self, 'Ceci est un test', mtInformation, [mbOK]);

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

En attache les 2 unités que j'ai retrouvées et le mode d'emploi assez simple pour centrer les Dialogues sur la TForm.

Il suffit de rajouter une seule unité dans le "uses".

Cordialement,

@+,

cincap

[Charly910]

Merci Cincap,

je vais tester chez moi

A+
Charly

[cincap]

@ Charly910 Hello, de rien voici un exemple tout simple et pour le messagedlg il faut utiliser la fonction déjà décrite :

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
24
25
26
27
28
29
30
31
32
33
34
35
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Opd1: TOpenDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses AwDialogs;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if ExecuteCentered(Opd1, Self) then showmessage('hello');
end;
 
end.

@+,

cincap

[Charly910]

Merci Cincap, ça marche "au poil"

A+
Charly