if (Sender as TButton).Caption = 'Button1' then ShowMessage('button1') else if (Sender as TButton).Caption = 'Button2' then ShowMessage('button2') else if (Sender as TButton).Caption = 'Button3' then ShowMessage('button3')
Liusp(夜深千帐灯) 的方法好像不行哦!
liusp 的说法是正确的。very good
if( sender is Tbutton) then tbutton(sender).caption=...
ShowMessage('button1')
else if (Sender as TButton).Caption = 'Button2' then
ShowMessage('button2')
else if (Sender as TButton).Caption = 'Button3' then
ShowMessage('button3')
tbutton(sender).caption=...