我发现一个程序,里面用的TShockwaveFlash控件。在程序运行起来以后,TShockwaveFlash控件上显示四个按钮,这些按钮能触发对应的事件,如下:
procedure TfrmMain.sfFSCommand(ASender: TObject; const command,
args: WideString);
begin
if command = 'Query' then begin
end else if command = 'Option' then begin
--对应程序
end else if command = 'Exit' then begin
---self.Close;
end else if command = 'About' then begin
---对应程序
end;
end;我不知道,command 是如何与按钮事件对应起来的,如何添加进去的?
procedure TfrmMain.sfFSCommand(ASender: TObject; const command,
args: WideString);
begin
if command = 'Query' then begin
end else if command = 'Option' then begin
--对应程序
end else if command = 'Exit' then begin
---self.Close;
end else if command = 'About' then begin
---对应程序
end;
end;我不知道,command 是如何与按钮事件对应起来的,如何添加进去的?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货