不可移动的窗体
2013-04-29 13:38
197 查看
procedure windowsposchange(var Msg:TWMWINDOWPOSCHANGING);message WM_WINDOWPOSCHANGING;
var
Form13: TForm13;
//
oleft:integer;
otop:integer;
owidth:integer;
oHeight:integer;
implementation
{$R *.dfm}
procedure TForm13.FormCreate(Sender: TObject);
begin
oleft:=Left;
otop:=Top;
owidth:=Width;
oheight:=Height;
end;
procedure TForm13.windowsposchange(var Msg:TWMWINDOWPOSCHANGING);
begin
Msg.WindowPos.x:=oleft;
Msg.windowpos.y:=otop;
Msg.windowpos.cx:=owidth;
Msg.windowpos.cy:=oheight;
inherited;
end;
var
Form13: TForm13;
//
oleft:integer;
otop:integer;
owidth:integer;
oHeight:integer;
implementation
{$R *.dfm}
procedure TForm13.FormCreate(Sender: TObject);
begin
oleft:=Left;
otop:=Top;
owidth:=Width;
oheight:=Height;
end;
procedure TForm13.windowsposchange(var Msg:TWMWINDOWPOSCHANGING);
begin
Msg.WindowPos.x:=oleft;
Msg.windowpos.y:=otop;
Msg.windowpos.cx:=owidth;
Msg.windowpos.cy:=oheight;
inherited;
end;
相关文章推荐
- C#设置MDI子窗体不可移动
- C# WinForm:怎样使有标题栏的Form窗体不可移动?
- C#设置MDI子窗体不可移动
- 不可移动的窗体
- 使窗体不可移动
- vb设置窗体不可移动
- vb设置窗体不可移动
- 设置鼠标可以移动窗体
- c# 窗体上控件如何放大缩小和移动
- SwitchRecord 在连续窗体视图中使用上下箭头键在记录中上下移动
- C# 移动无边框窗体
- 无边框窗体改变大小并移动位置
- Qt - 移动无边框窗体
- c#无边窗体实现移动的两种方式
- wpf无边框窗体移动和大小调整
- WM_MOVE 窗体移动后的位置
- js入门·移动窗体/弹出提示
- 隐藏标题栏后窗体如何移动
- C#去边框以及无边框窗体移动
- 移动电竞即将成为不可阻挡的大趋势