delphi中关于edit控件

【1】在Form的create事件中添加如下代码
procedure TForm1.FormCreate(Sender: TObject);
begin
with SysLocale do
begin
MiddleEast := true;//设置本地为中东地区。
end;
end;
【2】将要靠右显示的edit的BiDiMode属性改为bdRightToLeft即可。
【3】说明一下：在delphi中如果系统默认地区不是‘中东’，那么即使改变了bidimode属性也是不行的。所以【1】步是必须的。

自带的Edit控件似乎没这个功能
像TLabel就有Alignment属性进行控制

如果要TEdit有这个功能，要么你自己写

要么用3方控件来实现

像Raize里的Edit就有Alignment属性

要下的话在www.2ccc.com 直接搜 Raize就行。