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;