初学者的菜鸟问题,一个frame中四button,用同一段事件处理代码,问题:在事件中如何区分不同的button

[kuanghong]

初学者的菜鸟问题,一个frame中四button,用用一段事件处理代码,问题:在事件中如何区分不同的button

[腊月三毛]

procedure TFrame1.Button1Click(Sender: TObject);
begin
if sender=button1 then
处理1;
if sender=button2 then
处理2;
...
end;
然后将Button1Click赋给Button2,Button3...的Click事件

[王集鹄]

procedure TFrame1.ButtonClick(Sender: TObject);
begin
ShowMessage(TButton(Sender).Caption); //Sender既是
end;

[lxpbuaa]

你可以给每个Button指定唯一的Tag值；
procedure TFrame1.ButtonClick(Sender: TObject);
begin
//用TButton(Sender).Tag来区分不同Button
end;



—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————