窗体吸附（我是菜鸟）(50分)

Y

yufeify

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #1

当我的第一个窗体移动时，第二个窗体根据第一个的消息作相应的处理

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #2

是要做磁性窗体吗

 

D

des2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #3

笨办法，在第二个窗体上放上一个 timer 控件，将参数传过去

 

D

dreamer567

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #4

第一个窗体移动时，发送消息给第二个窗体不好吗？

 

C

chenhuiw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #5

gdgxcvxcvxcv

 

Y

yufeify

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #6

能不能搞一个小小的例子给我谢谢，说明窗体的磁性或吸附

 

D

des2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #7

太麻烦了，五十分可能少了点
推荐一个空件好了
http://www.tommstudio.com/newclub30/doaction.asp?action=download&type=kongjian&id=723
我用过了这个空件还是不错

 

Y

yufeify

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #8

怎么没有人帮我呀

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #9

之前見過有一個由"魯小班做的控件" 跟你的要求一樣的..你在網上找一下就行了...

 

Y

yufeify

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #10

回答了我回加分的

 

魏

魏启明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #11

用控件
或搜索Winamp

 

W

Worm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #12

在移动功方法中加入重新写入一个位置参数不就行了吗？

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #13

Winamp风格的磁性窗体
拦截WM_MOVE消息即可

type

TForm1 = class(TForm)

private

procedure WMMOVE(var Msg: TMessage); message WM_MOVE;

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMMOVE(var Msg: TMessage);

begin

Inherited;

if (Left < 10) and (Top < 10) and

(Left <> 0) and (Top <> 0) then // 设定移动到左上角 10 点范围内时贴到边上去

begin

Left := 0;

Top := 0;

Msg.Result := 0;

end;

end;

end.

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #14

去http://kingron.delphi.com ， 共享资源里面，有一个ModalForm，只要你的窗体从这里继承下来，并设置AttachForm即可，窗体就会自动Attach到指定的窗体

 

C

chuanxue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-25

• #15

在mouse down事件中加入下面代码;
MoveWindow(form2.Handle,form1.Left+x-px,form1.Top+y-py+form1.Height ,form2.Width,form2.Height,true);
当然px,py要定议。为当鼠标按下时的坐标。准行，我就是这样的。原码直接copy.