如何调用执行某一事件?(一刻钟后结帐)

如一个事件:  
  procedure   TForm1.EditDblClick(Sender:   TObject);  
  begin  
  ...  
  ...  
  ...  
   
  end;  
   
   
  现在我想在下列事件中调用上面的事件的过程:  
   
  procedure   TForm1.EditKeyDown(Sender:   TObject;   var   Key:   Word;  
      Shift:   TShiftState);  
  begin  
  ...  
  ...  
   
  end;  
   
  可不可以直接调用,而不用把事件EditDblClick代码写到事件EditKeyDown中? 问题点数：20、回复次数：5Top

1 楼tangjiyu（小雨）回复于 2003-04-04 08:51:45 得分 20

可以直接调用，调用EditDblClick（Sender)就行啦！Top

2 楼Rijie（做人真难）回复于 2003-04-04 09:04:25 得分 0

多谢!  
   
  结帐!Top

3 楼cjfzy（他山之石，可以攻玉。）回复于 2003-04-04 09:11:13 得分 0

可以直接调用，只不过sender有点变化；  
  比如说  
  procedure   TForm1.EditABCKeyDown(Sender:   TObject;   var   Key:   Word;  
      Shift:   TShiftState);  
  那末sender指的是EditABC  
  这时候你在  
  procedure   TForm1.EditABCKeyDown(Sender:   TObject;   var   Key:   Word;  
      Shift:   TShiftState);  
  中调用procedure   TForm1.EditDblClick(Sender:   TObject);如果写成：  
  procedure   TForm1.EditABCKeyDown(Sender:   TObject;   var   Key:   Word;  
      Shift:   TShiftState);  
  begin  
      EditDblClick(Sender);  
  end;  
  那末EditDblClick(Sender);相当于EditDblClick(EditABC);  
  这时候eEditDblClick(Sender);过程中的代码都针对EditABC,  
  当然你想针对别的控件可以写成：  
  例如针对editBCD:   EditDblClick(EditBCD);Top

4 楼Frend（一刀）回复于 2003-04-04 09:12:09 得分 0

来晚啦！  
  TForm1.Button1Click：=TForm1.ButtonClick;Top

5 楼Frend（一刀）回复于 2003-04-04 09:12:58 得分 0

对了，  
  少了SenderTop

相关问题

• word
• editdblclick
• 调用
• editabc
• editabckeydown
• 事件
• tshiftstate
• sender
• tobject
• proceduretform1

• 帖主：Rijie
• tangjiyu

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载