初级问题!(20分)

  • 主题发起人 主题发起人 springsea
  • 开始时间 开始时间
S

springsea

Unregistered / Unconfirmed
GUEST, unregistred user!
如何让执行窗口在桌面上固定,不响应鼠标拖动?
 
习习,不要边框就无法拖动了.
如果为了美观,还要一个标题条的话, 可以自己做一个假的.
 
对了,我做小程序经常在Form最上面放上一个假的标题
并在右上角放几个模拟的按钮……
 
简单的办法就是"欺骗"系统,让他认为点中的是窗体的客户区


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
private
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = HTCAPTION then
M.Result := htclient;
end;

end.
 
kinlee: 你的方法不行,还是可以用键盘移动窗口的.
 
kinlee的方法我试过了,鼠标确实不能移动窗体!
但不知cAkk所说的用键盘移动窗体怎么办到的?
 
做个假的比较好
 
请问cAkk如何用键盘移动窗体?
 
>>如何用键盘移动窗体?
当前窗口按Alt-Enter,然后选择'移动'菜单,就可以用上下左右键移动窗体了。
 
我赞成cakk的方法
 
liuly兄:呵呵,他们是想问没有边框的窗体如何用键盘移动……快捷键只是在有边框才有效的。
 
的确,不用边框的方法的确很好,我就用过 :-)
当然如果要"伪造"一个标题条也很容易.
 
Cakk的办法不错嘛
 
多人接受答案了。
 
后退
顶部