文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 183
阅读 1
收藏 0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = 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;

var
  Form1: TForm1;  //声明 TForm1 的实例
  MyForm1: TMyForm;  //声明 TMyForm 的实例
implementation

{$R *.dfm}

//Form1 上有两个按钮, Button1: 弹出信息; Button2: 创建并显示 MyForm1
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('TForm1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MyForm1 := TMyForm.Create(nil);
  MyForm1.Show;
end;


{ TMyForm }
//TMyForm1 被创建后, 应该和 TForm1 一摸一样;
//Button2: 会继续创建并弹出新的 TMyForm1
//Button1: 会弹出两条信息, 因为继承了一条
procedure TMyForm.Button1Click(Sender: TObject);
begin
  inherited;  //继承 Button1 原有的功能
  ShowMessage('TMyForm');
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2007/12/13/993524.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
冯斌:JavaFx实例(一)“HelloWorld”

本段代码是JavaFx入门最常见的代码,它的作用是在“窗体”中央显示一个Button按钮,单击这个Button按钮,在控制台输出"Hello World",详细代码如下: import javafx.application.Application;...

fengbin8606
2014/05/14
0
0
Winform开发框架之数据即时更新的实现

在我的随笔中,Winform开发介绍过很多内容,随着介绍的深入,很多地方进行精细化的介绍当中了。我们一般在Winform的列表界面中展现相关记录,在一个弹出窗口给客户录入数据,OK,这些没问题,...

长平狐
2012/08/22
216
0
C#从入门到精通之Windows窗体

1.Form窗体 1.1 设置启动窗口:Application.Run(new Form1()); 1.2 窗体的属性 1.更改窗体的图标:在属性面板中设置窗口的Icon属性(在添加窗体图标时图标格式只能是ico) 2.隐藏窗体的标题栏...

tiegenz
2018/03/23
0
0
循序渐进开发WinForm项目(4)--Winform界面模块的集成使用

随笔背景:在很多时候,很多入门不久的朋友都会问我:我是从其他语言转到C#开发的,有没有一些基础性的资料给我们学习学习呢,你的框架感觉一下太大了,希望有个循序渐进的教程或者视频来学习...

walb呀
2017/12/04
0
0
Solidity的继承(二十五)|入门系列

Solidity语言为我们提供了继承的支持1,实现的方式是通过复制包括多态的代码到子类来实现的。 继承 继承通过关键字来实现,一起来看看下面的例子: 上面的例子中,合约继承了合约。 继承的合...

区块链技术博客
2017/06/11
0
0

没有更多内容

加载失败,请刷新页面

加载更多

PostgreSQL 11.3 locking

rudi
今天
5
0
Mybatis Plus sql注入器

一、继承AbstractMethod /** * @author beth * @data 2019-10-23 20:39 */public class DeleteAllMethod extends AbstractMethod { @Override public MappedStatement injectMap......

一个yuanbeth
今天
10
1
一次写shell脚本的经历记录——特殊字符惹的祸

本文首发于微信公众号“我的小碗汤”,扫码文末二维码即可关注,欢迎一起交流! redis在容器化的过程中,涉及到纵向扩pod实例cpu、内存以及redis实例的maxmemory值,statefulset管理的pod需要...

码农实战
今天
4
0
为什么阿里巴巴Java开发手册中不建议在循环体中使用+进行字符串拼接?

之前在阅读《阿里巴巴Java开发手册》时,发现有一条是关于循环体中字符串拼接的建议,具体内容如下: 那么我们首先来用例子来看看在循环体中用 + 或者用 StringBuilder 进行字符串拼接的效率...

武培轩
今天
8
0
队列-链式(c/c++实现)

队列是在线性表功能稍作修改形成的,在生活中排队是不能插队的吧,先排队先得到对待,慢来得排在最后面,这样来就形成了”先进先出“的队列。作用就是通过伟大的程序员来实现算法解决现实生活...

白客C
今天
81
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部