从TEdit创建一个的组件,怎么写能让组件拖到窗口中时Text为空?并在创建时也为空。 即在窗口一创建时我的edit的text也为空? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你重载构造函数,在里面加入self.text := ''; interfacetype TEmptyEdit=class(TEdit) private public constructor Create(AOwner:TObject); end;implement....constructor TEmptyEdit.Create(AOwner:TObject);begin Inherited; //一定要放到第一行 Text:=''; end;编译单元创建可视控件,然后拖动就可以了!呵呵,我没有试验过,楼主自己按照这个思路进行就可以了....... 楼上二位,我就是如同你们所说的,但不行。拖到窗口上时text为numEdit。 你不会把TEdit改了。这样更快更好做 怎么可能,我的意思是从TEdit(最好是TCustomEdit)派生一个子类,然后编译成控件单元,然后添加到IDE的面板上。但新派生控件对应的类构造器中一定要在代码最后令Text为空....FText:=''; 你可以直接在EDIT的属性里面设置,将其清空 关于delphi用TADOQuery连接数据库的问题 200分求FastReport2.52的汉化预览窗口,要有导出“EXCEL、WORD、HTM”文件功能的~!!! Access问题 PDA软件! CreateOleObject出错! 播放VCD文件! deihpi已经跟sql server 连接 DLL编程,内存问题。 delphi如何声明静态变量,用来记录程序运行次数就行? 有个程序“天天备忘录”已做好,欢迎测试[email protected] 在主窗体打开以后,再想自动打开一个提示窗体,该如何实现 很弱的问题,关于StringGrid控件的,在线等待
self.text := '';
TEmptyEdit=class(TEdit)
private
public
constructor Create(AOwner:TObject);
end;implement
....
constructor TEmptyEdit.Create(AOwner:TObject);
begin
Inherited; //一定要放到第一行
Text:='';
end;编译单元创建可视控件,然后拖动就可以了!呵呵,我没有试验过,楼主自己按照这个思路进行就可以了.......