procedure form1.PublicButton_Click(Sender:TObject); begin if (Sender as TButton).name='Button1' then showmessage('Button1'); if (Sender as TButton).name='Button2' then showmessage('Button2'); if (Sender as TButton).name='Button3' then showmessage('Button3'); end; //PublicButton_Click的定义