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;
delphi动态获取点击的MenuItem
最新推荐文章于 2019-09-02 15:10:00 发布