Delphi 7学习开发控件（继承TGraphicControl只画一条线）

我们知道使用Delphi快速开发，很大的一方面就是其强大的VCL控件，另外丰富的第三方控件也使得Delphi程序员更加快速的开发出所需要的程序。在此不特别介绍一些概念，只记录自己学习开发控件的步骤。假设我们要开发一个画直线的控件，那么我们从下面开始做：
1.菜单栏→Component→New Component，在弹出的对话框中按照提示添加：

Ancestor type 父类：TGraphicControl [Controls]
Class Name 类名：TLineTo
Palette Page 面板页：Samples
Unit file name 单元文件名：E:/练习/我做的控件/TLineTo.pas
Search path 搜索路径：E:/练习/我做的控件（添加上面保存控件的路径）

Delphi 7学习开发控件（继承TGraphicControl只画一条线）
按OK完成，系统自动帮我们创建好LineTo.pas文件，内容如下：

unit LineTo;

interface

uses
  SysUtils, Classes, Controls;

type
  TLineTo = class(TGraphicControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TLineTo]);
end;

end.

2.我们创建的TLineTo派生自TGraphicControl，而TGraphicControl又派生自TControl，那么图像控件TGraphicControl源代码又是什么呢，Ctrl按住并点击TGraphicControl，进入观看源代码：

  TGraphicControl = class(TControl)
  private
    FCanvas: TCanvas;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  protected
    procedure Paint; virtual;
    property Canvas: TCanvas read FCanvas;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

可以看到父类TGraphicControl的Paint是虚函数，子类必须覆盖实现Paint函数方法。要做画线控件，我们简单来句MoveTo，LineTo就可以了，源代码如下：

unit LineTo;

interface

uses
  SysUtils, Classes, Controls;

type
  TLineTo = class(TGraphicControl)
  private
    { Private declarations }
  protected
    procedure Paint; override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TLineTo]);
end;

procedure TLineTo.Paint;
begin
  with Canvas do
  begin
    MoveTo(0, 0);
    LineTo(Self.Width, Self.Height);
  end;
end;
end.

保存文件，关闭文件。
3.接下来安装组件，菜单栏→Component→Install Component，弹出对话框，浏览加入刚才制作的组件全路径位置，记住第三项包文件名，以后卸载需要使用，点击“OK”安装。如下图所示：