在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
代码
// 自定义事件过程,过程名可以任意取
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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论