在用Delphi制作Windows程序的窗體時(shí)，窗體的邊界有四種選擇：
對話(huà)框式（bsDialog）
單邊固定式（bsSingle）
雙邊可變式（bsSizeable）
無(wú)邊界式（bsNone）。
當設置為bsNone時(shí)，窗體也就沒(méi)有標題條，很顯然，程序運行以后就無(wú)法移動(dòng)窗體了。
但是有時(shí)候既需要設置無(wú)邊框窗體，還需要移動(dòng)窗體的位置。比如：我做了一個(gè)程序，為了美化界面，我用了一張圖片images作為窗體的背景。載入圖片的組件名字為image1。我將form1de Borderstyle設置為bsnone。我還需要拖動(dòng)窗體來(lái)移動(dòng)窗口的位置。
解決辦法：在image1組件的onMouseDown事件中加入以下代碼：
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (ssleft in shift) then
begin
releasecapture;
perform(wm_syscommand, $f012, 0);
end;
end;
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
