custpane.pas

Delphi高级开发指南是开发程序的好帮手

unit CustPane;

interface

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

type
  TPanel3Button = class(TPanel)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    constructor Create (AOwner: TComponent); override;
  end;

var
  Panel3Button: TPanel3Button;

procedure Register;

implementation

{$R *.DFM}

constructor TPanel3Button.Create (AOwner: TComponent);
begin
  inherited Create (AOwner);
  InitInheritedComponent (self, TPanel);
end;

procedure TPanel3Button.Button1Click(Sender: TObject);
begin
  ShowMessage ('Click on Button1');
end;

procedure TPanel3Button.Button2Click(Sender: TObject);
begin
  Beep;
end;

procedure Register;
begin
  RegisterComponents ('DDHB', [TPanel3Button]);
end;

procedure TPanel3Button.Button3Click(Sender: TObject);
begin
  Button3.Top := Button3.Top + 3;
end;

end.