当前位置:主页>仓库管理软件> 列表

Edit 小问题

财务软件版1楼: Edit如何能使输入的字符串是从右向左显示的

2楼: 可以自己写一个函数实现这个功能 如最好用的进销存软件

3楼: 小弟新手,不知从何下手[:)]

4楼: bidiMode,可以设置成象阿拉伯文字那样的

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

6楼: 或者可以这样
....
procedure Upsetdown(var anEdit: TEdit);
var
I: Integer;
strTmp: String;
begin
strTmp := '''';
for I := Length(anEdit.Text) downto 1 do
strTmp := strTmp + anEdit.Text[I];
anEdit.Text := strTmp;
end;

财务软件版7楼: 我有自己做的控件,联系我
helloyzy@zj.com

8楼: 多人接受答案了。