不用標題列 直接拖曳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 ;//隱藏視窗邊框
arrow
arrow
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()