双击标题栏的问题!! - Delphi论坛

编程论坛 → 开发语言 → 『 Delphi论坛』 → 双击标题栏的问题!!

标题：双击标题栏的问题!!

只看楼主

masefee519

等　级：新手上路
帖　子：40
专家分：0
注　册：2007-4-3

楼主

问题点数：0 回复次数：2

双击标题栏的问题!!

我做了个程序都是全屏幕的,已经禁止了标题栏的最大化按钮,我想让用户只能最小化和关闭,但是当鼠标双击标题栏时,窗体能缩小,我想阻止这个操作,请问怎么实现,请给具体代码好吗??

搜索更多相关主题的帖子: 标题栏　鼠标　屏幕　窗体　按钮　

2007-12-05 21:07

provoke

来　自：广州
等　级：新手上路
威　望：5
帖　子：175
专家分：0
注　册：2007-6-14

第 2 楼

得分:0

在窗体的OnCanResize事件和OnResize事件中添加代码

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Resize:=false;
end;

如果这样还不行，就再加上下面的：

procedure TForm1.FormResize(Sender: TObject);
begin
Form1.Left:=0;
Form1.Top:=0;
Form1.Width:=Screen.Width;
Form1.Height:=Screen.Height;
end;