procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;
end;//虎口夺食
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;
end;//虎口夺食
解决方案 »
- delphi调用Web Service 多个接口,求教
- 100分求教:数据库设计的困惑
- 怎么获得该控件的句柄?
- 一个字符串处理把我头都搞晕了,现在要请高手帮忙了,急,哦在线恭候!
- 如何分发带MySQL数据库的应用程序? 准备打在一包里一个SETUP 文件就行了
- 一个TEnhTreeView的问题
- IdTCPServer 接收流数据的问题
- 关于StringGird?
- 怎么实现局域网的语音通讯?欢迎大家提出新颖实施方案!
- 关于dblookupcombobox?
- 我开了一个线程(MyThread0),我怎么知道它运行了多少时间。在线等候,先解决的100分
- 用adoquery查询出结果了然后用控件显示出来还加了dbnavigator可是却不能编辑结果有什么好办法吗
intx as integer
inty as integer
在form_mousedown
intx=x, //把鼠标坐标给intx and inty
inty=y,
在form_mousemove
me.move(me.top-intx+x,me.left-inty+y)用DELPHI如果写,