Title: Create floating Toolbar
First of all, you must set DragMode property of ToolBar to dmAutomatic and then use code below.
RasX parameter is distance from ToolBar1.Left to X coordinate of mouse.
RasY parameter is distance from ToolBar1.Top to Y coordinate of mouse.
var
Form1: TForm1;
RasX, RasY: Integer;
implementation
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with Source as TToolBar do
begin
Top:=Y-RasY;
Left:=X-RasX;
end;
end;
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source=ToolBar1;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
RasX:=X-ToolBar1.Left;
RasY:=Y-ToolBar1.Top;
end;