VPF::Drag&Drop - Форум программистов

X-Vlad

Дата 3.10.2006, 22:45 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

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

Привет всем.

Есть на форме две панели (TPanel) на одной из них еще одна панель (TPanel).
Вопрос:

Подскажите плз как зделать чтобы можна было перенести эту панель из одной в другую.

smile

Зарание благодарен.

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

Хорошая штука - комп..:)
www.x-vlad.com

Fedia

Дата 4.10.2006, 00:31 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13

Цитата(X-Vlad @ 3.10.2006, 22:45

)

Подскажите плз как зделать чтобы можна было перенести эту панель из одной в другую.

Смотри здесь.
У одной панели прописываем обработчики событий:

Код


procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  with Source as TPanel do
  begin
    Left := X;
    Top := Y;
    Parent:=Panel1;
  end;
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TPanel;
end;

, а у второй свойство DragMode устанавливаем в значение dmAutomatic или прописываем на OnMouseDown:

Код


if Button = mbLeft then 
Panel2.BeginDrag(false);

Это сообщение отредактировал(а) Fedia - 4.10.2006, 00:32

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

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

X-Vlad

Дата 4.10.2006, 17:05 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

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

спасибо

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

Хорошая штука - комп..:)
www.x-vlad.com

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