双击标题栏的问题!!

masefee519 发布于 2007-12-05 21:07， 2441 次点击

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

2 回复

provoke2007-12-05 22:45

在窗体的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;

masefee5192007-12-06 18:44

谢谢嘿嘿