Delphiran - Delphi Tips Question : How can I make
a window borderless when draging ?
Answer
:
procedure TForm1.PanelTopMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (Button=mbLeft) then begin ReleaseCapture; (Self as TControl).Perform(WM_SYSCOMMAND,SC_DRAGMOVE,0); end; end;