Discussion :

[bertrand_declerck]

Bonjour à tous !

Une question qui a certainement été résolu mais dont je ne me rapelle plus la solution :

comment aligner le contenu d'un edit après un keypressed par exemple
à droite ?

J'ai regardé l'aide de delphi et on me parle de créer en "oncreate" un bidimode ?

quelle est la soluce ?

merci à vous !

[Clorish]

La proprietee Alignement il me semble

[Edit]
Non ca c'est pour les labels

[YanK]

Il te faut faire ton propre composant qui herite de TEdit.
Voila le code que j'avais trouvé sur le net : (SwissDelphiCenter)

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
62
63
unit EditAlign;
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls; 
 
type 
 
  TAlign = (eaLeft, eaCenter, eaRight); 
 
  TAlignEdit = class(TEdit) 
  private 
    { Private-Deklarationen } 
    FAlign: TAlign; 
    procedure SetAlign(const Value: TAlign); 
  protected 
    { Protected-Deklarationen } 
    procedure CreateParams(var Params: TCreateParams); override; 
  public 
    { Public-Deklarationen } 
    constructor Create(AOwner: TComponent); override; 
  published 
    { Published-Deklarationen } 
    property Alignment: TAlign read FAlign write SetAlign default eaLeft; 
  end; 
 
procedure Register; 
 
implementation 
 
constructor TAlignEdit.Create(Aowner: TComponent); 
begin 
  inherited Create(AOwner); 
  FAlign := eaLeft; 
end; 
 
procedure TAlignEdit.SetAlign(const Value: TAlign); 
begin 
  if FAlign <> Value then 
  begin 
    FAlign := Value; 
    RecreateWnd; 
  end; 
end; 
 
procedure TAlignEdit.CreateParams(var Params: TCreateParams); 
begin 
  inherited; 
  case FAlign of 
    eaLeft: Params.Style   := Params.Style or ES_LEFT; 
    eaCenter: Params.Style := Params.Style or ES_CENTER; 
    eaRight: Params.Style  := Params.Style or ES_RIGHT; 
  end; 
end; 
 
procedure Register; 
begin 
  RegisterComponents('SwissDelphiCenter', [TAlignEdit]); 
end; 
 
end.

[bertrand_declerck]

Un grand merci pour ton aide !

bien à toi !