如何创建一个自定义的TMyForm? 简单看了下书,可能没看对地方。我需要的功能很简单,只要在原来窗体的基础上,增加几个属性,使得通过TMyForm创建的窗体,可以在属性面板中设置这些属性。我用New Component,基类选的TFormsize,结果弄出来一个不知道什么东西。请高手援手指点,从哪儿创建,选哪个基类等,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 type TMyForm = class (TForm) end; 什么意思呢?用上面的办法直接定义一个窗体类?怎么用呀?我原来用Form生成一个新的窗体类,然后继承产生一个新的窗体,不过在属性面板里并没有增加的属性设置。这个具体怎么操作才会有呢?我是新手,希望能说得详细一些。 private { Private declarations } FPopedom:String; procedure setPopedom(APopedom:String); public { Public declarations } property Popedom:String read FPopedom write setPopedom; 自己定义一个新窗体类,最好从Tform继承,然后在需要是创建并显示它 我是从TForm继承的,但是定义的属性没有出现在派生窗体的属性面板中 // weidegong(weidegong) ( ) 信誉:100 2003-12-23 11:07:00 得分:0 // 我是从TForm继承的,但是定义的属性没有出现在派生窗体的属性面板中定义一个类 tmyform = class(tform) 将你想要在inspect form 中显示的属性声明在published 段中 然后注册该类 在你的组件选择面板上就会出项一个 名为 tmyform的 可视化窗体控件 在创建一个新的 tmyform 的实例应该就可以了 (注:不哓得窗体能不能注册?) type TMyForm = class(TForm) private FP1: Integer; published property P1: Integer read FP1 set P1; end; 你加了属性了吗property P1: Integer read FP1 set P1;加了就会有的 to 楼上,加了属性,也是在Published域定义的,但是没有出现在面板中。。 窗体不应当注册,会引起Delphi的崩溃。 事实上,新建一个窗体之后,它自己就已经在对象库里。点“New”之后,不是有个当前工程的标签吗,里面有所有的窗体,但是继承产生的窗体在属性面板中没有自定义属性;属性是应该注册才有的吧?继续看书中。。 楼上居然这么多的白痴!!>>只要在原来窗体的基础上,增加几个属性,使得通过TMyForm创建的窗体,可以在属性面板中设置这些属性。这是根本不可能实现的,除非你自己开发一个Delphi。 如何通过网页安装程序?就像现在的ActiveX程序一样 数据库?? 谁有语音聊天的源代码啊? TQuery执行异常,我找不出原因,帮我看看! 我要用SQL存储图象文件(bmp),客户端调用;考虑带宽,想进行压缩后传输,有什么好办法吗 请解释一下这是什么意思 ? 在线等候..... 急!通过BDE访问Access97方法步骤? DELPHI怎么复制到当前管理员账户的启动文件夹? 高手请进,同一命令,在WIN98下可以读取主板序列号,在NT、2000下不可以,命令如下: 关于异常的问题 求AdoStoreProc的一个例子 DLL与应用程序通讯的问题,大家有什么好建议没?^^!
TMyForm = class (TForm)
end;
{ Private declarations }
FPopedom:String; procedure setPopedom(APopedom:String);
public
{ Public declarations }
property Popedom:String read FPopedom write setPopedom;
// 我是从TForm继承的,但是定义的属性没有出现在派生窗体的属性面板中定义一个类
tmyform = class(tform)
将你想要在inspect form 中显示的属性声明在published 段中
然后注册该类 在你的组件选择面板上就会出项一个 名为 tmyform的 可视化窗体控件 在创建一个新的 tmyform 的实例应该就可以了 (注:不哓得窗体能不能注册?)
TMyForm = class(TForm)
private
FP1: Integer;
published
property P1: Integer read FP1 set P1;
end;
property P1: Integer read FP1 set P1;
加了就会有的