继承窗体

最新推荐文章于 2024-11-22 16:16:07 发布

weixin_33752045

最新推荐文章于 2024-11-22 16:16:07 发布

阅读量54

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/jxgxy/archive/2009/11/12/1601707.html

本文介绍了一个使用Delphi实现的简单继承示例。通过TForm1和TMyForm两个类展示了如何通过继承来复用代码，并且演示了如何在子类中覆盖父类的方法以增加额外的功能。

Code
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.

转载于:https://www.cnblogs.com/jxgxy/archive/2009/11/12/1601707.html