帮忙了~~关于ActiveX控件的问题~~~~(50分)

  • 主题发起人 主题发起人 babytime
  • 开始时间 开始时间
B

babytime

Unregistered / Unconfirmed
GUEST, unregistred user!
在ActiveForm上放一个panel1,在panel1的OnMouseDown添加:showmessage('ttt')
做成ActiveX控件,在application中使用这个ActiveX控件时,我想实现在application设计期间
可以触发panel1的OnMouseDown,运行期间不触发,请问应该如何获得ActiveX控件的类似于
componentstate的功能?
 
你这样做不行,当你按下panel时它不会弹出showmessage('ttt')这个东东,
你在做控键的时候,不能这样直接在它的onclick事件中写,你可以写一个函数
用来接收这一事件呀!
 
baidie:
我试了一下,是可以的。把做好的控件放到application的form上,可以有'ttt'show出来阿
 
有这么奇怪吗?那你的是属于什么类呀!你的控键这还会出现tactiveform.panel1.click()吗?
如果有把你的代码贴出来让我看看好吗?
 
to baidie
新建一个activeform,上面有panel1,添加事件OnMouseDown
procedure TPanelmoveX.Panel1MouseDown(Sender: TObject;
Button: TMouseButton
Shift: TShiftState
X, Y: Integer);
begin
showmessage('Panel1MouseDown');
end;
build-->register-->import activex control
生成控件PanelmoveX,将控件放到新建的aplication的form上。
在panel上点鼠标,会showmessage
 
我的意思是希望实现:application 不运行的时候点击panel可以showmessage
application 运行的时候点击panel不会showmessage
很难么~~~~各位大富翁帮帮忙阿..:(
 
老兄呀!application 不运行的时候点击panel可以showmessage
application 运行的时候点击panel不会showmessage
到底是什么意思,为什么我看了几天都不明白,你是不是想做一个activex控键,然后放到
activex template中,然后在form中把它调用出来呀!请回答
 
自己解决,结贴,谢谢baidie
 
后退
顶部