VPF::Panel как отдельное окно. - Форум программистов

RinOSpro

Дата 14.5.2009, 12:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть Panel если в свойствах поставить DragKind - dkDock, а в DragMode - dmAutomatic, то при попытке перетащить она будет отображаться как отдельное окно.

Как можно сделать тоже самое? не назначая Panel.Parent другому окну. И не применяя программный drag & drop.

Shaggy

Дата 14.5.2009, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 2.5.2007
Где: г.Ижевск

Репутация: 3
Всего: 5

а никак
при перетаскивании VCL создаёт временную подкладку(окно)

Alexeis

Дата 14.5.2009, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Shaggy @ 14.5.2009, 15:41

)

при перетаскивании VCL создаёт временную подкладку(окно)

Ничего дополнительно не создается, просто панелька без родителя становится отдельным окном сама по себе. С точки зрения Windows панелька точно такое окно как и форма, если пересоздать окно не указав Parent, то как раз такое окно и получиться.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

RinOSpro

Дата 15.5.2009, 09:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(Alexeis @ 14.5.2009, 17:22

)

панелька без родителя становится отдельным окном сама по себе

Код


  Lpanel := TPanel.Create(nil);
  Lpanel.Parent := nil;
  Lpanel.ParentWindow := GetDesktopWindow;
  Lpanel.Top := 100;
  Lpanel.Left := 100;
  Lpanel.Width := 100;
  Lpanel.Height := 100;

Панелька создается, но не имеет border-a.

А в случае с drag & drop видимо действительно дело рук VCL, так как Parent-ом для панельки является класс TCustomDockForm.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »