求救！！！急啊，在线等！！！！(100分)

G

gulan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-09

• #1

我在一个主窗体内建立了多个子窗体，通过用Canvas在主窗体
中画了一条线连接两个子窗体，现在有两个问题需要解决，
1：当鼠标移动到给这条线添加一个PopupMenu。
2：当子窗体移动后，连线跟着移动。

 

P

plzw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-09

• #2

1.在OnMouseMove事件里做
2.捕获子窗体的消息，然后更改连线

 

G

gulan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-09

• #3

1，我做了，没用啊。
2，怎么捕获子窗体的消息啊

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-09

• #4

procedure TForm1.FormMouseMove(Sender: TObject
Shift: TShiftState
X,
Y: Integer);
begin
if form1.Canvas.Pixels[x,y] = clBlue then
begin
PopupMenu1.Popup(Mouse.CursorPos.x,Mouse.CursorPos.y);
end
end;