Плавающая панель

[casio23]

Кто знает как сделать плавающую панель инструментов? Я начал делать через ToolBar задал

DragKind := dkDock;
DragMode := dmAutomatic;

панелька перемещается когда ее тащишь ,но вот в чем проблема она не стает обратно, где была! как это реализовать? или может еще как то это можно сделать?

[wm_leviathan]

попробуй обработать событие какое нибудь вариантов много. например

procedure TForm1.ToolBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

Toolbar1.Parent:=Form1;
Toolbar1.Align := alTop;
end;

по нажатию пр. кнопки мыше вернется обратно.

[casio23]

Сообщение от wm_leviathan

попробуй обработать событие какое нибудь вариантов много. например

procedure TForm1.ToolBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

Toolbar1.Parent:=Form1;
Toolbar1.Align := alTop;
end;

по нажатию пр. кнопки мыше вернется обратно.

а как обратно показать Toolbar1 если его закрыть?

[ArtGrek]

она не стает обратно, где была! как это реализовать?

а если просто взять 2 константы или при создании устанавливать местоположение по умолчанию и приравнивать Top и Left, не вариант?

[wm_leviathan]

Сообщение от casio23

а как обратно показать Toolbar1 если его закрыть?

м-м-м это если пользователь нажал кнопку закрыть и тулбар вернулся на место? или тулбар вы закрыли и потом как в майкросовт ворде (к примеру) добавить панель ?
если второе то

Toolbar1.Show;

и соответственно align и parent

[casio23]

Сообщение от wm_leviathan

м-м-м это если пользователь нажал кнопку закрыть и тулбар вернулся на место? или тулбар вы закрыли и потом как в майкросовт ворде (к примеру) добавить панель ?
если второе то

Toolbar1.Show;

и соответственно align и parent

все работает, а можно еще спросить а почему когда я нажимаю пр.кл.мыши то происходит мерцание? и еще как сделать так что бы когда я вытащил тулбар, изменялся его размер сам

[wm_leviathan]

Сообщение от casio23

и еще как сделать так что бы когда я вытащил тулбар, изменялся его размер сам

procedure TForm1.ToolBar1EndDock(Sender, Target: TObject; X, Y: Integer);
begin
Toolbar1.Width := 200;
Toolbar1.Height := 50;
end;

незнаю что у вас там мерцает. подробнее надо.

[casio23]

Сообщение от wm_leviathan

procedure TForm1.ToolBar1EndDock(Sender, Target: TObject; X, Y: Integer);
begin
Toolbar1.Width := 200;
Toolbar1.Height := 50;
end;

незнаю что у вас там мерцает. подробнее надо.

Спасибо ,

[t2skler]

Сообщение от casio23

все работает, а можно еще спросить а почему когда я нажимаю пр.кл.мыши то происходит мерцание? и еще как сделать так что бы когда я вытащил тулбар, изменялся его размер сам

Пропиши в событии onCreate формы вот этот код:
ToolBar1.DoubleBuffered:=True;