Edit输入显示问题 Edit输入在从最左边开始,怎么才可以把从右边开始输入,就象WINDOWS的计算器输入那样 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TAEdit=class(TEdit) procedure CreateParams(var Params: TCreateParams); override; private // public // end; TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TAEdit.CreateParams(var Params: TCreateParams);begin inherited CreateParams(Params); Params.Style:=Params.Style or ES_RIGHT;end;procedure TForm1.FormCreate(Sender: TObject);var a: TEdit;begin a:=TAEdit.Create(self); a.Parent:=Form1; a.Left:=10; a.Top:=10; a.Width:=100; a.Text :='笑笑';end;end. 菜鸟认为,DELPHI确有其方便这处,但这个工具用起来感觉不是很细腻.所以有很多的地方都要用代码实现! 哪种能快速获取文件大小 文件大小几百兆 到几G 不等 【求助】函数定义问题 多线程 如何调用7z.dll压缩多个文件? delphi新手问题关于入门,在线等 怎么操作dbase数据库(dbf文件)呢???求救!!! form间数据传递问题 谁说delphi企业需求小,是MicroSoft用户加的莫须有吗 csdn上拉客,坚绝要闭了这个帐号。 yonsoft005 用QuickRep如何分列显示呢 各位高手,问一个菜鸟问题 初学者求救:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TAEdit=class(TEdit)
procedure CreateParams(var Params: TCreateParams); override;
private
//
public
//
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TAEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style:=Params.Style or ES_RIGHT;
end;procedure TForm1.FormCreate(Sender: TObject);
var
a: TEdit;
begin
a:=TAEdit.Create(self);
a.Parent:=Form1;
a.Left:=10;
a.Top:=10;
a.Width:=100;
a.Text :='笑笑';
end;end.