Плавающая панель
Как сделать плавающюу панель, причем чтоб она при запуске приложения сразу была оторвана от формы. Ничего не могу сделать. А панельки как в Фотошопе хоца. Помогите кто чем может. Зарание благодарен.
Дык делай отдельнюу форму... а дальше дело техники! :)
Дык делай отдельнюу форму... а дальше дело техники! :)
Да не хочу я отдельную форму, я хочу юзать TPanel, просто я не могу оторвать ее от формы при разработке и Form.Create. А свойства Драговые вроде выставил. Ну не отрывается сама!
Да не хочу я отдельную форму, я хочу юзать TPanel, просто я не могу оторвать ее от формы при разработке и Form.Create. А свойства Драговые вроде выставил. Ну не отрывается сама!
Дык она и не должна вродь отрываться... А вообще по этому поводу на torry.net есть много компонент... остается только скачать :)
Попробуй технологию перетаскивания объектов - Drag&Doc
Ты хотел сказать Drag&Drop?... :D
Ты хотел сказать Drag&Drop?... :D
Нет Drag&Drop, если внимательно читать книжку (я аш заглянул в нее) - это техенология "перетаскивания информации об объектах" (пример - Копирование и перемещение методом перетаскивания файлов и папок в проводнике)
а Drag&Doc - "Перетаскивание и встираивание объектов"(плавающие окна, панельки)
Нет Drag&Drop, если внимательно читать книжку (я аш заглянул в нее) - это техенология "перетаскивания информации об объектах" (пример - Копирование и перемещение методом перетаскивания файлов и папок в проводнике)
а Drag&Doc - "Перетаскивание и встираивание объектов"(плавающие окна, панельки)
Действительно Doc. Вот я её и докаю. Она превосходно отрывается, но только если ее мышой котащить, а хочется чтоб сразу оторванная была.
Действительно Doc. Вот я её и докаю. Она превосходно отрывается, но только если ее мышой котащить, а хочется чтоб сразу оторванная была.
Тада читай лучше хелпы... там должен быть такой метод "отрывания"....:)
Тада читай лучше хелпы... там должен быть такой метод "отрывания"....:)
Я бы сказал процедура...
procedure TForm1.Button1Click(Sender: TObject);
Var
R:TRect;
W:TWinControl;
d:TDragDockObject;
begin
R:=Rect(0,0,100,100);
D:=TDragDockObject.Create(Nil);
D:= {Что тут я не знаю}
Panel1.DockDrop( d,10,10);
end;
Не знаю что запихать в D...