如何使image可以透过事件?(100分)

  • 主题发起人 主题发起人 wangyi444
  • 开始时间 开始时间
W

wangyi444

Unregistered / Unconfirmed
GUEST, unregistred user!
如题,image透明,我想让它也可以透过mousedown、mouseup、mousemove事件,应该如何去做?
 
不是特别明白你说的。
 
是不是这个意思:
想让谁得到事件,就转让一下事件;比如
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
X:=X+Timage(Sender).Left;
Y:=Y+Timage(Sender).Top;
Form1MouseUp(Form1,Button,Shift,X,Y);
end;
 
你描述的 不够清楚。。。。
 
他的意思是,如果image透明了,但仍然响应其上的OnMouseMove等事件,所以楼主相在image上的点击操作就相当于点击image所属的控件的操作。就相当于image不存在。
我楼上的楼上回答应可行
 
原来这么容易...谢谢
 
后退
顶部