上传者: 39840515
|
上传时间: 2021-12-23 15:39:36
|
文件大小: 4KB
|
文件类型: -
Delphi窗口编程实例:如何让窗口不可拖动位置,即使鼠标按在标题栏上,也不能拖动窗口,窗口变得不可移动,打开时在什么位置 ,就始终保持在某位置,实现此功能的关键代码部分:
Msg.WindowPos.x := Left;
//消息的WindowPos.x部分包含新窗体左边位置,将其改成原来窗体左边坐标
//Left全写为Form1.Left
Msg.WindowPos.y := Top;
//消息的WindowPos.y部分包含新窗体顶部位置,将其改成原来窗体顶部坐标
//Top全写为Form1.Top
Msg.Result := 0;