5,386
社区成员
发帖
与我相关
我的任务
分享动态生成TIMage的事件处理问题，请帮忙!
对一个动态生成的TImage，要想处理它的OnMouseDown,OnMouseMove,OnMouseUp事件，应该怎么处理呢？
...全文
请发表友善的回复…
发表回复
cxfirefox 2003-07-25
- 打赏
- 举报
谢谢！
huayuxing 2003-07-25
- 打赏
- 举报
如：procedure TCtrlKeyPress(Sender:Tobject;var Key:Char);
begin
...
end;
var
EdtTmp:Tedit;
begin
EdtTmp:=Tedit.create(nil);
EdtTmp.onkeypress:=TCtrlKeyPress;
end;
begin
...
end;
var
EdtTmp:Tedit;
begin
EdtTmp:=Tedit.create(nil);
EdtTmp.onkeypress:=TCtrlKeyPress;
end;
huayuxing 2003-07-25
- 打赏
- 举报
同意楼上的说法，你按照onMousedown,onmousemove,等事件的参数，写过程，然后再把此过程赋给动态生成的IMAGE的相应事件
firetoucher 2003-07-25
- 打赏
- 举报
procedure UrMouseDownProc(Sender:TObject);
begin
...
end;
var
a:Timage;
begin
a:=Timage.crete(self);
a.OnOnMouseDown:=UrMouseDownProc;//其他雷同
begin
...
end;
var
a:Timage;
begin
a:=Timage.crete(self);
a.OnOnMouseDown:=UrMouseDownProc;//其他雷同
