怎样改写事件？（不知道是否overload、override等等）

Question

控件：form1、button1
问题：
我就不想用button1自带的事件button1click来处理，我就要用自己的button1click来处理！求救

Answer 1

button1.OnClick := YourProcedure ;

Answer 2

procedure TForm1.FormShow(Sender: TObject);
begin
   Button1.onClick:=myClick;
end;procedure TForm1.myClick(Sender: TObject);
begin
  showmessage('ok');
end;

Answer 3

你自己寫一個繼承BUTTON的控件﹐在其中寫一個click事件﹐在這個事件后要加上override

Answer 4

不太明白你的意思，
取得原事件的参数；--什么参数？你可以直接重载message处理事件通过message结构得到参数
(代理服务器有问题,不能发长的留言,请原谅) 
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

Answer 5

To bbs791109(小别):
具体如何做：
1。如何创建新的控件；
2。如何在application中给出事例；thx!To firetoucher(风焱):
如果我用的控件是Tsocket之类的空间，那么他的一些事件相对应的message有时什么呢？参数又如何取得呢？

Answer 6

object1 的“点击”动作的原事件为 event1，现在我想 创建自己的事件处理程序event2，并且不继承原有的 event1。

Answer 7

说白了还是楼顶两位兄弟说的那样
procedure TForm1.FormShow(Sender: TObject);
begin
   Button1.onClick:=myClick;
end;procedure TForm1.myClick(Sender: TObject);
begin
  ……
end;只要两个过程的格式一样（参数相同），就可以直接赋值的