关于delphi7中窗体继承的问题

wenlinhai 2005-12-02 01:55:00

生成一个基准窗体TfrmBaseEdit,上面布有一些各种可见控件
然后再生成一个窗体Form2,该窗体继承先前的基准窗体,即
TForm2=class(TfrmBaseEdit)
Form2:TForm2
问题是:我在设计时在Form2窗体上怎么看不到从TfrmBaseEdit继承来的
那些控件呢?怎么样才能看得到呢?

...全文

103 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

wenlinhai 2005-12-02

打赏
举报

回复

非常谢谢wjc1000(小疙瘩)!

小疙瘩 2005-12-02

打赏
举报

回复

基准窗体TfrmBaseEdit不变

在生成form2

文件---新建----其他-----project1中的frmBaseEdit 点OK

这个是本人最近编制的一个窗体继承类。程序代码很短，但很有用，解决了Delphi程序设计中窗体及其包含的控件自适应不同屏幕分辨率的问题。即你的程序可能是在1024X768屏幕分辨率下设计的，但是需要在屏幕分辨率为1280X1024的机器上运行，如果不做专门的处理，有些界面可能会变形，有些控件可能会看不见。这个类对上述问题给出了一般性的解决方案，尽管稍嫌粗糙，但能满足普通软件开发的需要。用法很简单，只要在新创建的窗体中引用这个类所在的单元，并将TForm1=Class(TForm)改为TForm1=Class(TfdForm)就可以了，其他不需要做任何修改。

实现基于窗体的继承实例代码开发，针对窗体中显示通用内容时可参考。

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。...

Borland官方Delphi7类继承图：TObject-->TInterfacedObject-->TPersistent-->TComponent-->TControl层层关系

Delphi 窗体继承的例子，适用于Delphi7的源代码例子，欢迎delphi新手参考。　　procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; 　　 Shift: TShiftState; X, Y: Integer); 　　begin 　　 releasecapture; 　　 self.perform(WM_SYSCOMMAND,$F012,0); 　　end;

5,386

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章