1.프로젝트에서 바로  더블클릭이벤트 추가하여 사용하기
unit Unit1;

interface

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

type TShapeAdd = class(TShape)
  published
    property OnDblClick;
  end;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
   ShapeAdd:TShapeAdd;
   procedure MyDblClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MyDblClick(Sender: TObject);
begin
   Showmessage('Shape1이 더블 클릭 됬습니다');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
   ShapeAdd := TShapeAdd(Shape1);
   ShapeAdd.OnDblClick := MyDblClick;
end;

end.












/////////////////////////////////////////////////////////////////
2.컴포넌트 만들기
Component -> New Comoponent

Ancestor Type = TShap
ClassName = TShapAdd
Palette Page = MyCom
Unit File Name = C:MyComShapeAdd.pas
Search Path = 그대루

Ok 버튼클릭

////////////

unit ShapeAdd;

interface

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

type
  TShapeAdd = class(TShape)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property OnDblClick;   //추가
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyCom', [TShapeAdd]);
end;

end.


저장(C:MyComShapeAdd.pas)->Component->Install Component->Into new Package

Unit File Name =C:MyComShapeAdd.pas
Serch Path =그대루
Package File Name = MyComponents
Package descripition = MyComponents


Ok 버튼클릭->Yes버튼클릭->MyComponents.dpk 저장

이러면 팔레트에 MyCom이 추가되고 거기에  TShapeAdd컴포넌
트가 생깁니다.

제거시는
Component->Install package->MyComponents->Remove

제설치시
MyComponents.dpk  열어서 install 버튼 클릭

안녕하세요

지나가다 우연히 보게 됐습니다

좋은거 알았네요

그런데 궁금한게...

protected 로 된거를 상속받아서 사용할 수 있게 하는건가요?

그럼 버튼에 색깔을 입히려면 어떻게 해야 합니까?

버튼의 Color 를 상속받아도 안되네요...

알려주세요~

감사합니다.정말감사합니다. 초보가 힘이납니다.