组件事件问题

Question

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

Answer 1

.....用来上传的.....
我 也不知道你有的什么组件啊。。但主要的做法，根据很简单。就是如果你拖动控件的话，那就会生成在TForm里。
你的button2click事件的写法就是
 组件->方法就可以了。而无需要声明，或是初始化啥的
//如果有帮忙请结贴。

Answer 2

我只是想实现组件包含一个有单击事件的button 安装组件后单击button即可显示

Answer 3

比如安装这个组件 放到窗体上单击这个组件包含的button，就可以弹出个窗口什么的 不用写代码了 弹出个窗口在组件里头该怎么写？

Answer 4

先声明一个TForm类型，然后使用   TForm->ShowModal();

Answer 5

 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;