刘麻子,我要加1分给你, ( 积分: 3 )

procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> &nbsp;if Pre then<br> &nbsp;begin<br> &nbsp; &nbsp;ShowMessage('Button1 is Click');<br> &nbsp; &nbsp;Label1.Caption:='AfterDothis';<br> &nbsp; &nbsp;Pre:=False;<br> &nbsp;end;<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> &nbsp;if Pre then<br> &nbsp;begin<br> &nbsp; &nbsp;ShowMessage('Button2 is Click');<br> &nbsp; &nbsp;Label1.Caption:='AfterDothis';<br> &nbsp; &nbsp;Pre:=False;<br> &nbsp;end;<br>end;<br>====<br>这个就不用重复了吧，<br>得了1分，心里不踏实：)<br>可以这样做，先双击其中一个按钮，写好代码，然后单击(不要双击哦)选中别一个，在object inspector中点everts页，单击onclick,再点下拉列表框，选中前面编辑的Button1Click就可以让两个按键使用同一个处理过程<br>