有关创建组件!
unit Unit1;

interface

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

Type
TcyButton = Class(TButton)
Private
Public
procedure Click(Sender: TObject);
end;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Panel: TPanel;
Button: TcyButton;
begin
Panel := TPanel.Create(Nil);
Panel.Parent := Form1;

with Panel do
begin
Button := TcyButton.Create(Nil);
With Button do
begin
Parent := Panel;
OnClick := Click;
end;
end;
end;

{ Button }

procedure TcyButton.Click(Sender: TObject);
begin
Showmessage( 'a '); //ShowMessage 是没有问题的
Close; //Close 没有办法做, cyButton不知道应该Close谁啊? ^_^ 这儿应该怎么写?
end;

end.


[解决办法]
Button := TcyButton.Create(self
);
TForm(Parent).Close;
就可以了
------解决方案--------------------

楼上的做法违背了楼主的意思，楼主是希望把按钮创建在panel上，而不是窗口上。
根据楼主的情况，你是直接将创建代码和布局代码混在一起。没有独立开来。那么你就没有必要这么麻烦，因为代码本身已经失去了可可重用性，在click事件中直接Form1.close 就可以了
如果真的不想这样，你也可以嵌套来完成搜索Form的目的
在click事件中这样写
var
P:TwinControl;
begin
while P.Parent <> nil do
begin
P:=P.Parent;
if P.Parent=nil then
Break;
end;
TForm(P).Close;
end;