Mega Code Archive

 

Categories / Delphi / Forms

 

Make A Form Border Less ONLY While Dragging

Title: Make A Form Border-Less ONLY While Dragging . Question: How Do I Make A Form With No Border While Dragging ?? 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;