关于类的入门例子(1): 继承窗体

为什么80%的码农都做不了架构师？>>>

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;{继承 TForm1 的类: TMyForm}TMyForm = class(TForm1)procedure Button1Click(Sender: TObject);end;varForm1: TForm1;  //声明 TForm1 的实例MyForm1: TMyForm;  //声明 TMyForm 的实例
implementation{$R *.dfm}//Form1 上有两个按钮, Button1: 弹出信息; Button2: 创建并显示 MyForm1
procedure TForm1.Button1Click(Sender: TObject);
beginShowMessage('TForm1');
end;procedure TForm1.Button2Click(Sender: TObject);
beginMyForm1 := TMyForm.Create(nil);MyForm1.Show;
end;{ TMyForm }
//TMyForm1 被创建后, 应该和 TForm1 一摸一样;
//Button2: 会继续创建并弹出新的 TMyForm1
//Button1: 会弹出两条信息, 因为继承了一条
procedure TMyForm.Button1Click(Sender: TObject);
begininherited;  //继承 Button1 原有的功能ShowMessage('TMyForm');
end;end.

转载于:https://my.oschina.net/hermer/blog/319499

关于类的入门例子(1): 继承窗体相关推荐

一个例子走近 Python 的 Mixin 类：利用 Python 多继承的魔力
一.引言这篇博客,是我在看了<Python GUI Programming with Tkinter>第 76 页的小节 Exploiting the power of multiple ...
Orleans 初接触（一）入门例子
[返回导航] 在简单了解了Orleans 之后我们可以通过几个例子去加深印象一.Orleans入门例子这个例子是跟着<Orleans入门例子>(https://www.cnblogs. ...
C# Winform继承窗体打开设计器白屏的一例解决方法
环境VS2017 15.5.4,Win10 开发过程中,发现一些窗体打开设计器会卡死白屏,另外有一些不会,(两者运行时正常),最小化vs后甚至能把工具箱连带搞黑,严重影响开发效率,经过一天多的对比研究 ...
python 类-Python入门--一篇搞懂什么是类
原标题:Python入门--一篇搞懂什么是类写一篇Python类的入门文章,在高级编程语言中,明白类的概念和懂得如何运用是必不可少的.文章有点长,3000多字. Python是面向对象的高级编程语言 ...
Orleans入门例子
Orleans是微软开源的分布式actor模型框架.actor模型的原理网络上有很多文章.有许多理论性的文章,深刻地我都不知道怎么应用.在这里我就不赘述了.既然是博客,就说说自己的理解. 对于编程来说 ...
c#c#继承窗体_C＃继承能力问题和解答套装5
c#c#继承窗体 1) Which keyword is used to call a superclass constructor from child class? super top const ...
[深度学习-实践]CycleGAN的入门例子-Tensorflow2.1-keras
系列文章目录深度学习GAN(一)之简单介绍深度学习GAN(二)之DCGAN基于CIFAR10数据集的例子深度学习GAN(三)之DCGAN基于手写体Mnist数据集的例子深度学习GAN(四)之c ...
继承类基类的赋值_Chapter10：继承与派生（四）
之前的文章把继承和派生的基本概念和内部原理都大致理清了.但是类可以视作是一种特殊的数据类型--它也具有转换的功能,称为转型,这一节展开讨论它,以及如何通过指针跨越权限访问不同成员的技巧. 1.类的转型 ...
一个简单的iBatis入门例子
一个简单的iBatis入门例子,用ORACLE和Java测试目录结构: 1.导入iBatis和oracle驱动. ibatis-2.3.4.726.jar ojdbc14.jar 2.创建类com/ ...

关于类的入门例子(1): 继承窗体

关于类的入门例子(1): 继承窗体相关推荐

最新文章

热门文章