Discussion :

[redoran]

salut ; on exécutant ma requête j'ai constaté que mes valeurs affectés à des tedit son alignées à gauche ; et pour une meilleur visibilités des valeurs je veux les centrés dans les edit ;
j'ai vue ce lien http://www.developpez.net/forums/d29...dit-similaire/ est c'etait trop
et la aussi : http://delphi.developpez.com/faq/?page=compopropri;
y'a pas autre astuce plus facile!!!!

j'ai essayé Bidimode sans résultat.

dbgrid n'est pas à utilisé faute de respect de forme.

[Linkin]

Ce n'est pas très compliqué, il faut juste créer un nouveau composant.

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
 
type
  TCenterEdit = class(TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
 
 
{ TCenterEdit }
 
procedure TCenterEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or ES_CENTER;
end;

[redoran]

merci linkin ; sincèrement j'ai jamais crée un composant là je suis en plein océan avec votre post avec un peut de commentaire ( ou placé les codes !!) sa m'aide a tenté le coup ; sachant que ma forme compte + de 20 tedit ( faute de respect de forme..)

[Linkin]

- Le code est à mettre dans une unité CenterEdit
- (Delphi 7) tu fais Composant/Installer un composant, tu choisis l'unité CenterEdit, tu choisis un nom de paquet (.dpk).
- Tu compiles, tu installes
- Le composant TCenterEdit apparait maintenant dans la palette Interne

Après il ne reste plus qu'à remplacer tes Edit de ta Form par des TCenterEdit

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
 
unit CenterEdit;
 
interface
 
uses StdCtrls, Controls;
 
type
  TCenterEdit = class(TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
 
procedure Register;
 
 
implementation
 
uses Classes, Windows;
{ TCenterEdit }
 
procedure Register;
begin
  RegisterComponents('Interne', [TCenterEdit]);
end;
 
 
procedure TCenterEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or ES_CENTER;
end;
 
end.

[redoran]

Bonjour linkin ; merci pour votre aide

[redoran]

bon je résume:
je créé une nouvelle unité que je je renomme CenterEdit
je la souvegarde,
(Delphi 7) je fais Composant/Installer un composant,
je choisis l'unité CenterEdit,
je choisis un nom de paquet (.dpk) là il s'agit de quel paquet ?????
est celui relatif à la nouvelle unité!!! ou autre.
excuse mais je suis à l'étape step by step....