调整 TEdit 文本对齐

最新推荐文章于 2015-08-11 15:16:17 发布

转载最新推荐文章于 2015-08-11 15:16:17 发布 · 173 阅读

文章标签：

#c/c++

本文介绍了一种使用Windows API调整文本框对齐方式的方法，并通过示例代码展示了如何根据选项改变文本框内的文本对齐方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

譬如让 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.