G GaryLou Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-30 #2 写程式利用Form1 的 event OnMouseDown 触发Form2.Top and Form2.Left 的值, 将Form2进行移动
A Another_eYes Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-30 #3 type TForm1 = class(TForm) .... private procedure PosChanged(var Msg: TMessage); message WM_WINDOWPOSCHANGED; .... end; implimentation procedure TForm1.PosChanged(var Msg: TMessage); begin // 处理form2，设置其与form1的相对位置 end;
type TForm1 = class(TForm) .... private procedure PosChanged(var Msg: TMessage); message WM_WINDOWPOSCHANGED; .... end; implimentation procedure TForm1.PosChanged(var Msg: TMessage); begin // 处理form2，设置其与form1的相对位置 end;
