怎么使EDIT中的文本在右边啊

Question

系统要求没有办法啊 帮帮我吧 如题

Answer 1

换用第三方控件试试看，raize可以实现

Answer 2

同意楼主的。
用Raize

Answer 3

procedure TForm1.Edit1Change(Sender: TObject);
var
  str,nul : string;
  sub : Integer;
  num,i,n : integer;
begin
  nul:=' ';
  str := StringReplace(Edit1.Text,' ', '',[rfReplaceAll]);
  num := Edit1.Width div 5;
  sub := Length(str);
  n:=num-sub;
  Label1.Caption:=inttostr(n);
  for i := 1 to n do
  begin
    nul:=nul + ' ';
  end;
  Edit1.Text := nul + str ;
end;

Answer 4

TRightEdit=class(TEdit)
  private
    procedure CreateParams(var Params: TCreateParams);override;
  end;procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style:=Params.Style or ES_RIGHT;
end;

Answer 5

要想将 TEdit 的 Text 以右对齐方式显示需要自己写一个控件去作; 右对齐方式是
创建一个窗体的时候在它的风格里面所设定的, 对齐方式可在三个参数中选一个[ES_LEFT, ES_RIGNT, ES_CENTER], 默认值是ES_LEFT; 设定该值是通过一个 
Windowed Control 的 CreateParams 过程完成的, 由于 Delphi 在 TEdit 中
没有定义对齐的属性, 所以你必须自定义一个 Alignment: TAlignment类型的属性,
每次改变改属性后必须重新创建窗体(调用 RecreateWnd 函数);