无标题栏的窗体,如何用鼠标来移动它? 无标题栏的窗体,如何用鼠标来移动它? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Form1.OnMouseDown里: if Button=mbLeft then begin ReleaseCapture; SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end; 声明一个过程procedure SetClientToHTCAPTION(var msg: TWMNChitTest); message WM_NCHITTEST;TForm1.SetClientToHTCAPTION(var msg: TMessage);begin msg.Result := HTCAPTIONend; Form1.OnMouseDown里:If button = mbleft then begin ReleaseCapture; // 发送移动窗口信息 perform (WM_SYSCOMMAND,SC_MOVE OR 2, 0); end; TForm1 = class(TForm) Button1: TButton; Panel1: TPanel; procedure Button1Click(Sender: TObject); private procedure wmnchittest(var msg:twmnchittest);message wm_nchittest; public { Public declarations } end;procedure TForm1.wmnchittest(var msg: twmnchittest);begininherited;if (htclient=msg.result) then msg.result:=htcaption;end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0); end; 线程和串口的问题! 小问题? 图书查询问题 ,在线等 快点救我,我在线等待 提问:splitter怎么使用? 在access表中如何实现以下查询? 怎么把实型数转换成字符串型? 小问题,大家多帮点,我是新手! Key = VK_Return表示的是按键为回车键。不知道所有键都是怎么定义的?VK_?? 关于dbgrid中字段的问题,给分 adoquery 对SQL怎样绑定参数?? ***************我动态创建的EDIT,怎么给他加 OnChange事件
if Button=mbLeft then
begin
ReleaseCapture;
SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
procedure SetClientToHTCAPTION(var msg: TWMNChitTest); message WM_NCHITTEST;
TForm1.SetClientToHTCAPTION(var msg: TMessage);
begin
msg.Result := HTCAPTION
end;
begin
ReleaseCapture;
// 发送移动窗口信息
perform (WM_SYSCOMMAND,SC_MOVE OR 2, 0);
end;
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
procedure wmnchittest(var msg:twmnchittest);message wm_nchittest; public
{ Public declarations }
end;procedure TForm1.wmnchittest(var msg: twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;end;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;