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楼: 多人接受答案了。