如何改变文本框中文本的对齐方式

[z391723]

请教如何让文本框Edit中的文字右对齐或是居中对齐呢?谢谢

[34535345345345345345]

delphi的edit不支持

继承TEdit，重载CreateParams，修改Param即可。
procedure TEdit_Ex.CreateParams(var Params: TCreateParams);
begin
inherited;
if self.FTextOnRight then Params.Style:=Params.Style or ES_RIGHT;
end;

[firetoucher]

SetWindowLong(Edit1.handle, GWL_STYLE,GetWindowlong(edit1.Handle, GWL_STYLE) +ES_CENTER);
SetWindowLong(Edit1.handle, GWL_STYLE,GetWindowlong(edit1.Handle, GWL_STYLE) +ES_RIGHT);

[firetoucher]

设置后，刷新一下
Edit1.Refresh ;

[xiaoxiao197821]

{重载AEdit使其右对齐}
procedure TAEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style:=Params.Style or ES_RIGHT;
end; //同理可居中