如何让edit输入框里边的输入内容右对齐呀???

Question

如何让edit输入框里边的输入内容右对齐呀???

Answer 1

自己写一个AEDIT，继承TEDIT控件，再把右对齐的属性加进来，就可以了

Answer 2

最簡單就這樣﹕
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TEdit=class(StdCtrls.TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TMemo }procedure TEdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[Boolean, TAlignment] of DWORD =
    ((ES_LEFT, ES_RIGHT, ES_CENTER),(ES_RIGHT, ES_LEFT, ES_CENTER));
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := Style or ES_RIGHT;
  end;
end;end.最好找本書看看

Answer 3

frogshero(三波萝) ( )的方法不错，能实现
学习