动态生成TIMage的事件处理问题，请帮忙!

Question

对一个动态生成的TImage，要想处理它的OnMouseDown,OnMouseMove,OnMouseUp事件，应该怎么处理呢？

Answer 1

procedure UrMouseDownProc(Sender:TObject);
begin
...
end;var
 a:Timage;
begin
 a:=Timage.crete(self);
 a.OnOnMouseDown:=UrMouseDownProc;//其他雷同

Answer 2

同意楼上的说法，你按照onMousedown,onmousemove,等事件的参数，写过程，然后再把此过程赋给动态生成的IMAGE的相应事件

Answer 3

如：procedure TCtrlKeyPress(Sender:Tobject;var Key:Char);
begin
...
end;
var
  EdtTmp:Tedit;
begin
  EdtTmp:=Tedit.create(nil);
  EdtTmp.onkeypress:=TCtrlKeyPress;
end;