代码
//
自定义事件过程,过程名可以任意取
procedure TForm1.OnClick(Sender: TObject);
begin
if Sender is TButton then
begin
if TButton(Sender).Name = ' button1 ' then
.. .
else if TButton(Sender).Name = ' button2 ' then
.. .
end ;
end ;
// 创建TButton
var
btn: TButton;
begin
btn : = TButton.Create(Application);
btn.Name : = '' ; // 自己定义,注意不要有重复
btn.Caption : = '' ; // 自己定义
btn.OnClick : = OnClick;
end ;
procedure TForm1.OnClick(Sender: TObject);
begin
if Sender is TButton then
begin
if TButton(Sender).Name = ' button1 ' then
.. .
else if TButton(Sender).Name = ' button2 ' then
.. .
end ;
end ;
// 创建TButton
var
btn: TButton;
begin
btn : = TButton.Create(Application);
btn.Name : = '' ; // 自己定义,注意不要有重复
btn.Caption : = '' ; // 自己定义
btn.OnClick : = OnClick;
end ;
转载于:https://www.cnblogs.com/rogee/archive/2010/09/20/1832040.html