如何控制TEDIT中输入的文本显示在左边或右边？align属性好象没用。

[paulzou]

[dancemaple]

unit RightoLeftTEdit;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
TRightoLeftTEdit = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Sample', [TRightoLeftTEdit]);
end;

{ TRightoLeftTEdit }

procedure TRightoLeftTEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or ES_RIGHT;
end;

end.

[li_zhifu]

TEdit是没有AlignMent属性的，你可以参照
http://www.csdn.net/develop/read_article.asp?id=11766

[thedream]

to dancemaple(枫之舞):你好快啊

[li_zhifu]

本来我还以为我是第一个呢

[paulzou]

你们不要开发吗？怎么在比快？

无论如何，给粉拉！

[dancemaple]

：）我也经常这样呢，以为自己第一，结果“却猜不中这结局”

[dgzdx]

关注

[thedream]

to dancemaple(枫之舞):说得这么意味深长，难道被GF Format 啦？？？哈哈