调整 TEdit 文本对齐

譬如让 Edit1 文本右对齐:
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);

---

本例效果图:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;



type

  TForm1 = class(TForm)

    Edit1: TEdit;

    RadioGroup1: TRadioGroup;

    procedure FormCreate(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

  RadioGroup1.Items.CommaText := 'Left,Center,Right';

  RadioGroup1.ItemIndex := 0;

end;



procedure TForm1.RadioGroup1Click(Sender: TObject);

var

  es: Integer;

begin

  es := GetWindowLong(Edit1.Handle, GWL_STYLE) or 3;

  es := es xor (3 - RadioGroup1.ItemIndex);

  SetWindowLong(Edit1.Handle, GWL_STYLE, es);

  Edit1.Refresh;

end;



end.


 
   

这里面有个问题需要知道: 决定对齐方式的三个常量值 ES_LEFT、ES_CENTER、ES_RIGHT 分别是 0、1、2, 刚好可以对应 RadioGroup1.ItemIndex; 再换一种思路实现一下:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;



type

  TForm1 = class(TForm)

    Edit1: TEdit;

    RadioGroup1: TRadioGroup;

    procedure FormShow(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



var

  es_bak: Integer;



procedure TForm1.FormShow(Sender: TObject);

begin

  RadioGroup1.Items.CommaText := 'Left,Center,Right';

  es_bak := GetWindowLong(Edit1.Handle, GWL_STYLE);

end;



procedure TForm1.RadioGroup1Click(Sender: TObject);

var

  es: Integer;

begin

  es := es_bak or RadioGroup1.ItemIndex;

  SetWindowLong(Edit1.Handle, GWL_STYLE, es);

  Edit1.Refresh;

end;



end.