简单问题:form上Panel的拖动 (50分)

P

panjf

Unregistered / Unconfirmed
GUEST, unregistred user!
现在form上被两个panel占据了所有空间,鼠标只能点到panel,怎么实现对窗体的拖动?
刚刚开始学,请说详细点,谢谢。
 
应该是鼠标只能点到panel吧!
 
设计期还是运行期?
 
对不起,打错了,已经改了
 
运行期,form的BorderStyle为bsNone
 
你是想在运行期移动Panel吗?说清楚啊
 
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0);
end;
 
to onlyonekgx:不行呀,没有用

to 太平洋:当然是运行期呀
 
不可能,
我试都行
在Panel 的
OnMouseDown
事件中写代码

ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0);

我试过无数次肯定行,
就是在窗体最大化的时候都能移动
 
需不需要对属性进行修改?
 
不需要!

你是想按处哪儿拖动窗体?
 
可以了,我以前是改了属性DragMode,设成默认值就行了,能说说原理吗?看不太明白,谢谢
 
说起来也说不清楚,
你找一下帮助看一下
SetCapture
ReleaseCapture;

Perform(WM_SYSCOMMAND,$f012,0); 是发送消息,消息说起来话更长
 
好吧,谢谢你
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
896
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部