Alignement controle TEdit

Question

Bonjour !!

Voila, je voudrais savoir s'il existe une propriete pour aligner le texte d'un TEdit a droite (comme pour un TLabel, avec le taLeftJustify), parce que je n'en trouve pas, et je me demande si ma vue commence a deconner ^^;

D'avance un grand merci!

ricopetitdejeuner · Answer

^_^

Merci, j'vais essayer avec ce composant.

cs_toutdoux · Answer

Dans mon cas, comme mon edit est destiné à saisir des données, je mets ça dans son gestionnaire "OnEnter". Code : procedure TForm3.Edit10Enter(Sender: TObject); begin SysLocale.MiddleEast := True; // edit10.BiDiMode := bdRightToLeft; //eventuellementend; Quant au BiDiMode peut être mis à bdRightToLeft à la conception.

JulioDelphi · Answer

Pose un TButton et un TEdit, voilà mon code (qui fonctionne) :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Formatage(Valeur : Int64) : String;
var i : Integer;
    p : Integer;
begin
  p := 0;
  i := 3;
  Result := IntToStr(Abs(Valeur));
  while i + p < Length(Result) do
  begin
    Insert(' ', Result, Length(Result) - (i + p)+ 1);
    Inc(p);
    Inc(i, 3);
  end;
  if Valeur<0 then Result := '-'+Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= Formatage(StrToInt64(Edit1.Text));
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  SysLocale.MiddleEast := True;
  Edit1.BiDiMode := bdRightToLeft;
end;

end.

Alignement controle TEdit

3 réponses

Votre réponse

Discussions similaires