如何移动无边框表格?我试着在互联网上寻找,但没有。非常感谢。
最佳答案
您可以使用任何包含的控件(包括它本身)拖动表单。
使用以下示例,您可以通过单击其 Canvas 并拖动来移动表单。您可以通过在面板的 MouseDown 事件中放置相同的代码来对窗体上的面板执行相同的操作,这样您就可以创建自己的伪标题栏。
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
if Button = mbLeft then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;
关于windows - 移动无边框样式的表单,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10921093/