VPF::Dragging - Форум программистов

[Valet]

Дата 11.3.2007, 18:08 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.2.2007

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

Подскажите кто ньть плз как сделать так чтобы можно было перетаскивать мышкой, скажем, компоненты формы Я пытался с помощью события OnStartDrag и свойства Mouse.IsDragging, не получилось чето. smile

Sunvas

Дата 11.3.2007, 19:01 (ссылка)

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

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Вот, как это делается на примере кнопки. Только она перестает нажиматься smile

Код


procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 button1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

[Valet]

Дата 12.3.2007, 18:56 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.2.2007

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

А что значит ReleaseCapture если не секрет? а то в хелпе нету

Sunvas

Дата 12.3.2007, 19:12 (ссылка)

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

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Из справки MSDN:

Цитата

Вы можете предоставить пользователям своего приложения возможность изменять размеры элемента управления с помощью мыши — аналогично тому, как вы это делаете в режиме разработки. Для этого необходимо только вызвать две простые функции Windows API — ReleaseCapture и SendMessage.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Snowy

Дата 12.3.2007, 19:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата([Valet)

, 12.3.2007, 18:56, post1061916]А что значит ReleaseCapture если не секрет? а то в хелпе нету

Есть - в Windows SDK разделе.
Означает освобождение мыши от окна, в котором произошло нажатие.
То есть мы отменяем стандартное действие нажатия, а потом сообщаем окну, что оно получило не нажатие мыши, а системную сомманду таскания.

Sunvas

Дата 12.3.2007, 23:27 (ссылка)

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

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Snowy @ 12.3.2007, 19:27

)

а потом сообщаем окну, что оно получило не нажатие мыши, а системную сомманду таскания.

Т.е. вместо

Код


button1.Perform(WM_SYSCOMMAND, $F012, 0);

можно написать:

Код


sendmessage(button1.Handle,WM_SYSCOMMAND, $F012, 0);

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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