使窗体处于可“移动”,可改变“大小”状态中
在菜单中加入两个按钮,实现系统菜单中的“大小”及“移动”功能。
SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_SIZE, 0);
//使窗体处于可改变大小状态
SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE, 0);
//使窗体处于可移动位置状态
Delphi 心得、体会
在菜单中加入两个按钮,实现系统菜单中的“大小”及“移动”功能。
SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_SIZE, 0);
//使窗体处于可改变大小状态
SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE, 0);
//使窗体处于可移动位置状态