不用標題列 直接拖曳Form
private
procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;
procedure TForm1.wmnchittest(var msg:twmnchittest); //視窗移動
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;
BorderStyle := bsNone ;//隱藏視窗邊框
全站熱搜