我想实现鼠标移动,窗体跟着移动,鼠标不准按下,可我试了好几次,未能成功!procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
button:TMouseButton;
begin
if (button=mbleft)or (button=mbright) then
releasecapture;
perform(wm_syscommand,$f012,0);
end;
Y: Integer);
var
button:TMouseButton;
begin
if (button=mbleft)or (button=mbright) then
releasecapture;
perform(wm_syscommand,$f012,0);
end;
解决方案 »
- 一个视频卡和几个摄像头,现在想做一个现场监视。不知道要什么组件以前没做过,也没思路。麻烦各位以下帮帮忙……
- 关于解析字符串的的一个难题!(我想了半天也没弄出来,急求答案!!!)
- 在dxDBGrid控件中已选择多行数据,如何得到被选中的行?
- 请教:用fastreport设计报表,如何出现表格?
- 用什么函数判断一个单词是另一给单词中的一个?
- 如何将系统日期的短日期格式设为 yyyy-MM-dd形式?
- 还是图像文件保存到SQL Server2000的问题
- Tbutton(sender)是什么意思?
- 请问有关DELPHI的安装问题?
- 请各位帮忙,'sqloledb.dll' 问题
- 为什么动态生成的POPMenu无法指定checked
- 如何禁止CPU窗口自动弹出
设置断点 看能不能进入
当鼠标Dow的时候,否则就不用移动了。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormShow(Sender: TObject);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
procedure MoveForm();
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MoveForm();
begin
Left := Mouse.CursorPos.X - 100;
Top := Mouse.CursorPos.Y - 100;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Tag = 0 then MoveForm();
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Tag := 1;
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Tag := 0;
MoveForm();
end;procedure TForm1.FormShow(Sender: TObject);
begin
MoveForm();
end;end.