如何格式化TEdit中的数字数据??? 如:当对TEdit.Text:='100' 时,显示内容为$100.00 ,并向右对齐,当此TEdit获得焦点时,显示100.00 ,并向左对齐应如何实现?请大侠指点最好有源码 在此先谢了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DBEdit如果连接的是一个Float字段有这个功能,你可以到VCL里边去看看DBEdit是怎么处理的 自己做个简单的控件:unit AlignEdit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TAlign = (eaLeft, eaCenter, eaRight); TAlignEdit = class(TEdit) private { Private-Deklarationen } FAlign: TAlign; procedure SetAlign(const Value: TAlign); protected { Protected-Deklarationen } procedure CreateParams(var Params: TCreateParams); override; public { Public-Deklarationen } constructor Create(AOwner: TComponent); override; published { Published-Deklarationen } property Alignment: TAlign read FAlign write SetAlign default eaLeft; end; procedure Register; implementation constructor TAlignEdit.Create(Aowner: TComponent); begin inherited Create(AOwner); FAlign := eaLeft; end; procedure TAlignEdit.SetAlign(const Value: TAlign); begin if FAlign <> Value then begin FAlign := Value; RecreateWnd; end; end; procedure TAlignEdit.CreateParams(var Params: TCreateParams); begin inherited; case FAlign of eaLeft: Params.Style := Params.Style or ES_LEFT; eaCenter: Params.Style := Params.Style or ES_CENTER; eaRight: Params.Style := Params.Style or ES_RIGHT; end; end; procedure Register; begin RegisterComponents('SwissDelphiCenter', [TAlignEdit]); end; end. 用Delphi自带的MaskEdit控件,仔细研究一下帮助,你的要求都可以实现 那个窗体是最前面的? 我要辞职,不干了!谁有好的推荐啊 删除数据库中的表? oracle中clob,blob字段 一个程序中用到了两种协议??? 看到一篇好文章,大家评论评论 一个新手提的问题 麻烦各位一下 动态建立菜单项 谁给说说try...except 和 try ... finally的区别?一般捕获异常用哪个? 错误显示:没有注册类别.什么原因啊? adoquery添加记录问题!
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls; type TAlign = (eaLeft, eaCenter, eaRight); TAlignEdit = class(TEdit)
private
{ Private-Deklarationen }
FAlign: TAlign;
procedure SetAlign(const Value: TAlign);
protected
{ Protected-Deklarationen }
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
published
{ Published-Deklarationen }
property Alignment: TAlign read FAlign write SetAlign default eaLeft;
end; procedure Register; implementation constructor TAlignEdit.Create(Aowner: TComponent);
begin
inherited Create(AOwner);
FAlign := eaLeft;
end; procedure TAlignEdit.SetAlign(const Value: TAlign);
begin
if FAlign <> Value then
begin
FAlign := Value;
RecreateWnd;
end;
end; procedure TAlignEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
case FAlign of
eaLeft: Params.Style := Params.Style or ES_LEFT;
eaCenter: Params.Style := Params.Style or ES_CENTER;
eaRight: Params.Style := Params.Style or ES_RIGHT;
end;
end; procedure Register;
begin
RegisterComponents('SwissDelphiCenter', [TAlignEdit]);
end; end.