L lollman Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-18 #3 可以在image的mousedown中做一个标记，鼠标按下,然后在mousemove中检查鼠标是否按下，按下就让panel随鼠标一起动，在mouseup中取消标记
G guzhengyi_nj Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-18 #4 请问lollman: 在mousedown中做一个标记是 IsMove:=true; pt:=Point(X,Y); 怎么区分在panel还是image上呢？
L lollman Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-18 #5 image没有占满panel吗? 如果Panel中没有需要操作的按钮和编辑框之类的，可以在Panel上放一个Shape，占满panel也可以
云 云影 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-19 #6 procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; (Sender as TControl).Parent.Perform(WM_SysCommand, SC_DragMove, 0); end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; (Sender as TControl).Parent.Perform(WM_SysCommand, SC_DragMove, 0); end;
G guzhengyi_nj Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-19 #7 image没有占满panel. panel有caption显示.
云 云影 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-19 #9 怎吗不行?我的软件中正用者呢.image放在panel中怎吗不行？
G guzhengyi_nj Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-19 #12 请问云影， 这样拖动后，我就无法重画panel间的连线了，应该怎么办呢？
