小弟，你是新手吧！
procedure mymessage(var msg:tmsg;var handled:boolean);
if (msg.message=wm_lbuttondown )and(msg.wnd=myflash.handle) then
showmessage(你单击了我的FLASH控件);//////////////myflash为你的FLASH控件名
procedure tform1.oncreate(sender:tobject);
begin
application.onmessage:=mymessage;
end;
