组件事件有关问题

组件事件问题
想做个组件演示程序，包含一个opendialog，一个edit，两个button，单击其中一个button打开opendialog选中文件，另一个是用来上传的，请问自定义组件里头button的单击事件怎么写？分不多，50分上（安装组件后单击button就可以显示效果）

[解决办法]
.....用来上传的.....
我 也不知道你有的什么组件啊。。

但主要的做法，根据很简单。就是如果你拖动控件的话，那就会生成在TForm里。
你的button2click事件的写法就是


组件-> 方法

就可以了。

而无需要声明，或是初始化啥的


//如果有帮忙请结贴。
[解决办法]


TMyDemo = class(....
MyButton1:TButton;
MyButton2:TButton;
.....

procedure MyOpenClick(Sender:TObject);
procedure MyUploadClick(Sender:TObject);

end;


constructor TMyDemo.Create(....
begin
MyButton1.Onclick := MyOpenclick;
myButton2.Onclick := myUploadClick;
end;


procedure TMyDemo.MyOpenClick(Sender:TObject);
begin
....//你的代码
end;