alignement de TEDIT

Réponse acceptée !
Salut...
  Où est la réponse qui a été acceptée...
  Essayez d'utiliser un Memo avec une seule ligne...
  Ma propriété Alignment est déjà activée..
Merci

Réponse acceptée !
bonjour à tous,
je viens de lire vos post.
il faut créer le composant dans un unit,
type
  TCDEdit = class(TEdit)
  private
    { Déclarations privées }
    FTextAlign: TAlignment;
    FOnlyNumbers: boolean;
    procedure SetOnlyNumbers(Value: boolean);
    procedure SetTextAlign(Value: TAlignment);
  protected
    { Déclarations protégées }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
  published
    { Déclarations publiées }
    property OnlyNumbers: boolean read FOnlyNumbers write SetOnlyNumbers;
    property TextAlignment: TAlignment read FTextAlign write SetTextAlign;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Exemples', [TCDEdit]);
end;

{ TCDEdit }

constructor TCDEdit.Create(AOwner: TComponent);
begin
  inherited;
  FTextAlign := taLeftJustify;
  FOnlyNumbers := FALSE;
end;

procedure TCDEdit.CreateParams(var Params: TCreateParams);
const
Alignments: array[TAlignment] of Word = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or Alignments[TextAlignment];
  if OnlyNumbers then
    Params.Style := Params.Style or ES_NUMBER
end;

procedure TCDEdit.SetOnlyNumbers(Value: boolean);
begin
  if FOnlyNumbers <> Value thenbegin
    FOnlyNumbers := Value;
    RecreateWnd;
  end;
end;

procedure TCDEdit.SetTextAlign(Value: TAlignment);
begin
  if FTextAlign <> Value thenbegin
    FTextAlign := Value;
    RecreateWnd;
  end;
end;

end.

(ce code n'est pas de moi).
Salutations à tous et bon codding
Dugueclin.