delphi 无标题栏怎么移动窗口
1个回答
展开全部
将窗体的 BorderStyle 设置为 bsNone，窗体的标题栏就不会显示，此时，如果想移动窗体，方法如下：
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;
示例截图：
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
