还有最好把
Form1.BorderIcons.biMaximize
改为Flase
这样,右上角的窗口全屏化的小按钮就被屏蔽了
Form1.BorderIcons.biMaximize
改为Flase
这样,右上角的窗口全屏化的小按钮就被屏蔽了
解决方案 »
- 请问如何只启动一个进程?
- DEPHI 的TADOStoredProc组件怎么调用一个包含三个输入参数一个输出参数的存储过程?
- 我用DELPHI动态生成了一个EDIT 但是运行显示不出来
- 100分(好像最多只能这么多了?),只要给点建议就给分,ADOQuery更新server中数据表的问题。
- 高分答问题~~~~~~~~着急~~~~
- 大家好!!!日期时间如何在delphi中进行加减???
- 帮我看一个delphi 调用 idftp 让FTP上传的例子,错误在哪??
- ★★★★★超级难题:如何返回函数名称?
- 两个库之间的操作
- 靠 为什么我要天天编程!
- 高分求解,怎样屏蔽alt+f4?(win98)
- 注册表的问题。虽然简单,可我还搞不懂!
改为bsdialog
不过如果是bsdialog的话,会没有最大化和最小化按扭
type
TForm1 = class(TForm)
private
procedure WMPosChange(var Message: TWMWINDOWPOSCHANGING);
message WM_WINDOWPOSCHANGING;
public
end;var
Form1: TForm1;implementation{$R *.DFM}procedure Tform1.WMPosChange(var Message: TWMWINDOWPOSCHANGING);
begin
PWindowPos(TMessage(Message).lParam).Flags :=
PWindowPos(TMessage(Message).lParam).Flags or
SWP_NOMOVE or SWP_NOSIZE;
end;
在Tform的OnCanResize事件里写如下代码
NewWidth:=Form.Width;
NewHieght:=Form.Height;
Resize:=True;
阻止用户移动窗口我这么实现的阿!
procedure WMNCHitTest(var Msg:TMessage);Message WM_NCHitTest;//申明下面实现
procedure Tform.WMNCHitTest(var Msg:TMessage);
begin
Inherited;
If Msg.lparam=HTCaption
Then
Msg.Result:=HTClient;
end;
设置:MAXHEIGHT:=
MAXWIDTH:=
MINHEIGHT:=
MINWIDTH:=
你知道应该怎么设置了吧。
谢谢,给我分。