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