Discussion :

[guylouis]

Bonjour,

Je suis en Delphi7. Je cherche à centrer le texte d'un TEdit. Je ne trouve pas cela dans les propriétés.

Quand on cherche sur Internet, on trouve la propriété Alignment et on peut par exemple écrire Edit1.Alignment:=taCenter.

Mais c'est certainement pour les VCL.

Comment faire en Delphi 7?

Merci

[ShaiLeTroll]

Un TEdit c'est de la VCL justement
Delphi 7 c'est uniquement la VCL
Sinon c'est Kylix avec QT

Le problème est que Delphi 7 a 20 ans, difficile de trouver sur le net quand on sait que D11 (soit Delphi 28) une information fiable
Seuls ceux qui ont Delphi 7 installé pour confirmer si Alignment est une propriété existante à cette époque, ayant changé d'un PC Fixe à PC Portable récemment, fini D7 ou DXE2, reste plus que D10 et D11.

Sinon un TEdit c'est juste un contrôle Windows !
Apps > Win32 > Desktop Technologies > Desktop App > User Interface > Windows Controls > Edit Control Styles

ES_CENTER dans GWL_STYLE ou GWL_EXSTYLE à vérifier

Code :

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

     SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_CENTER (*and not ES_RIGHT and not ES_LEFT*) );

[ShaiLeTroll]

Une méthode un peu plus verbeuse, robuste au RecreateWnd

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
unit Unit1
 
interface
 
uses 
  ... Forms, Controls, StdCtrls, ...
 
 
type
  TEdit = class(StdCtrls.TEdit) // Même nom de classe locale à l'unité
  private
    FAlignment: TAlignment;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure SetAlignment(Value: TAlignment);
  public
    constructor Create(AOwner: TComponent); override;
 
    property Alignment: TAlignment read FAlignment write SetAlignment; // publique mais non publiée !
  end;
 
type
  TForm1 = ... // oui absolument après !
 
  end;
 
implementation
 
{ TForm1 }
 
// TForm1 entier
 
 
// à la fin
 
{ TEdit }
 
constructor TEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FAlignment := taCenter; // Autant mettre la valeur que l'on préfère ... attention cela impacte TOUS les TEdit présents de TForm1
end;
 
procedure TEdit.CreateParams(var Params: TCreateParams);
const
  Alignments : array[TAlignment] of DWORD = (ES_LEFT, ES_RIGHT, ES_CENTER); // Inspiré du tableau dans TCustomEdit.CreateParams de D10, plein d'autres effets de bord possible
begin
  inherited CreateParams(Params);
  // Ecrase le style VCL par une version agrementée.
  Params.Style := Params.Style or Alignments[FAlignment];
end;
 
procedure TEdit.SetAlignment(Value: TAlignment);
begin
  if FAlignment <> Value then
  begin
    FAlignment := Value;
    RecreateWnd;
  end;
end;