![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Cтасикявичус |
![]()
Сообщение
#1
|
Гость ![]() |
Подскажите, ПЛИЗЗЗ!
Как мне сделать так, (и можно ли вообще) чтобы форму можно было перетаскивать с маста на место держась за TImage или TPaintBox. Заранее очень благодарен. |
![]() ![]() |
xds |
![]()
Сообщение
#2
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, -------------------- The idiots are winning.
|
BlackShadow |
![]()
Сообщение
#3
|
Гость ![]() |
Мамочки, неужели всё так сложно?
Я бы делал так: 1). Ловлю нажатие, ставлю флажок, сохраняю координаты. 2). Ловлю MouseMove, проверяю флажок и при помощи Left и Top формы шевелю её в соответствии с сохранёнными координатами. 3). Ловлю отпускание кнопки, снимаю флажок. Я так когда-то свой Caption рисовал... |
xds |
![]()
Сообщение
#4
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
Это уже будет какая-то "эмуляция" перетаскивания формы: взять хотя-бы настройку Windows "Отображать содержимое окна при перетаскивании" - так она перестанет работать для такого приложения... <_<
Впрочем, таскать форму самому возможно более совместимый подход... -------------------- The idiots are winning.
|
Atos |
![]()
Сообщение
#5
|
![]() Прогрессор ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Подскажите, пожалуйста, такой простой вопрос: можно ли создать такой элемент формы, чтобы при некотором условии его можно было перетаскивать в пределах формы? Если да, то какой тип он должен иметь? Или это в любом случае надо делать программно, т. е. ловить нажатие, движение и отпускание мыши и соответственно изменять координаты?
|
BlackShadow |
![]()
Сообщение
#6
|
Гость ![]() |
Почитай про Dock. В боровском хелпе всё вполне доступно...
|
trminator |
![]()
Сообщение
#7
|
Четыре квадратика ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: ![]() ![]() ![]() |
Пусть хотим "потаскать" Panel1
-------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
BlackShadow |
![]()
Сообщение
#8
|
Гость ![]() |
trminator, я так понял, что вопрос не о Drag'n'Dock был...
|
Atos |
![]()
Сообщение
#9
|
![]() Прогрессор ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Drag'n'Dock меня тоже интересует... Спасибо за пример, trminator !
А просто перетаскивание - оказывается, я невнимательно смотрел FAQ :p2: Там есть такой простой способ:
|
![]() ![]() |
![]() |
Текстовая версия | 10.07.2025 22:59 |