Перемещение контрола

@vlad2 · Регистрация: 06.04.2011

Студворк — интернет-сервис помощи студентам

Как перемещать контрол (TPaintBox) по форме при помощи мышки, чтобы перемещение было плавным, и контрол не дёргался
(сейчас перемещаю при помощи OnMouseDown и OnMouseMove контрола)?

@volvo · 13.04.2017, 20:53

Положить PaintBox на TPanel, назначить ему Align = alClient, и написать вот такой обработчик события OnMouseDown:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    if (Button == mbLeft && Shift.Contains(ssCtrl)) // Ну, или другое сочетание, вместо Ctrl + Mouse
    {
        ::ReleaseCapture();
        static_cast<TPaintBox*>(Sender)->Parent->Perform(WM_SYSCOMMAND, 0xF012, 0);
    }
}

(сам по себе PaintBox так перемещать не получится, он не является оконным компонентом)

@vlad2 · 13.04.2017, 21:31 **[ТС]**

Спасибо, volvo, однако: "call to member function 'Perform' is ambiguous" (

@volvo · 13.04.2017, 21:44

У меня никакого ambiguous нет, на XE4 под 32 бита

Добавлено через 3 минуты
Может быть, компилер хочет

C++
1
static_cast<TPaintBox*>(Sender)->Parent->Perform(WM_SYSCOMMAND, 0xF012, (NativeInt)0);

?

@vlad2 · 14.04.2017, 08:44 **[ТС]**

Спасибо, volvo, всегда доволен твоими очень квалифицированными ответами ). Всё забегало.
Много вариантов перепробовал, а "... (NativeInt)0" не догадался. У меня ХЕ7, 64 бита.

А вот ещё вопрос, совсем не связанный с первым. Как в TColorBox (или TColorListBox) добавить выбор любого цвета, как в TColorDialog? здесь нашёл, вроде, ответ, но не сумел воспользоваться.

@volvo · 14.04.2017, 09:09

Любого - никак (для выбора любого цвета предназначен именно TColorDialog), можно только добавить некое ограниченное множество заранее заданных цветов (что и делается через AddObject в событии OnGetColors)

@vlad2 · 14.04.2017, 10:25 **[ТС]**

Мне, кроме цвета, надо задать ещё кое-что, поэтому хотел как-то встроить выбор цвета в форму, чтобы одновременно выбрать и другие параметры, вид которых меняется в зависимости от цвета.
Ну это мелочь, буду пользоваться стандартным TColorDialog.
Спасибо, volvo, за помощь. Практически осталось только подменить стандартный скроллбар, но это мне не по зубам (давно как-то писал об этом).

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@vlad2 6 / 6 / 2 Регистрация: 06.04.2011 Сообщений: 313

	Перемещение контрола 13.04.2017, 20:07. Показов 1251. Ответов 6 Метки нет (Все метки) Как перемещать контрол (TPaintBox) по форме при помощи мышки, чтобы перемещение было плавным, и контрол не дёргался (сейчас перемещаю при помощи OnMouseDown и OnMouseMove контрола)? 0

@vlad2 6 / 6 / 2 Регистрация: 06.04.2011 Сообщений: 313
	13.04.2017, 21:31 [ТС]
	Спасибо, volvo, однако: "call to member function 'Perform' is ambiguous" ( 0

@vlad2 6 / 6 / 2 Регистрация: 06.04.2011 Сообщений: 313
	14.04.2017, 08:44 [ТС]
	Спасибо, volvo, всегда доволен твоими очень квалифицированными ответами ). Всё забегало. Много вариантов перепробовал, а "... (NativeInt)0" не догадался. У меня ХЕ7, 64 бита. А вот ещё вопрос, совсем не связанный с первым. Как в TColorBox (или TColorListBox) добавить выбор любого цвета, как в TColorDialog? здесь нашёл, вроде, ответ, но не сумел воспользоваться. 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	14.04.2017, 09:09
	Любого - никак (для выбора любого цвета предназначен именно TColorDialog), можно только добавить некое ограниченное множество заранее заданных цветов (что и делается через AddObject в событии OnGetColors) 0

@vlad2 6 / 6 / 2 Регистрация: 06.04.2011 Сообщений: 313
	14.04.2017, 10:25 [ТС]
	Мне, кроме цвета, надо задать ещё кое-что, поэтому хотел как-то встроить выбор цвета в форму, чтобы одновременно выбрать и другие параметры, вид которых меняется в зависимости от цвета. Ну это мелочь, буду пользоваться стандартным TColorDialog. Спасибо, volvo, за помощь. Практически осталось только подменить стандартный скроллбар, но это мне не по зубам (давно как-то писал об этом). 0

Перемещение контрола

Решение