不从标题 栏 移动 窗体

procedure TForm5.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin

ReleaseCapture;
SendMessage(self.Handle, WM_SYSCOMMAND,SC_MOVE+HTCAPTION, 0);

if dingceng>0 then begin

self.Image2.BringToFront;
self.Image3.BringToFront;
self.Image6.BringToFront;
dingceng:=0;
end;
end;