Подскажите, ПЛИЗЗЗ!
Как мне сделать так, (и можно ли вообще) чтобы форму можно было перетаскивать с маста на место держась за TImage или TPaintBox.
Заранее очень благодарен.
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| Cтасикявичус |
Сообщение
#1
|
|
Гость |
Подскажите, ПЛИЗЗЗ!
Как мне сделать так, (и можно ли вообще) чтобы форму можно было перетаскивать с маста на место держась за TImage или TPaintBox. Заранее очень благодарен. |
![]() ![]() |
| BlackShadow |
Сообщение
#2
|
|
Гость |
Мамочки, неужели всё так сложно?
Я бы делал так: 1). Ловлю нажатие, ставлю флажок, сохраняю координаты. 2). Ловлю MouseMove, проверяю флажок и при помощи Left и Top формы шевелю её в соответствии с сохранёнными координатами. 3). Ловлю отпускание кнопки, снимаю флажок. Я так когда-то свой Caption рисовал... |
Cтасикявичус Перетаскивание формы 23.08.2004 19:47
xds procedure TForm1.Image1MouseMove(Sender: TObject; … 24.08.2004 3:53
xds Это уже будет какая-то "эмуляция" перета… 25.08.2004 20:12
Atos Подскажите, пожалуйста, такой простой вопрос: можн… 6.09.2004 17:50
BlackShadow Почитай про Dock. В боровском хелпе всё вполне дос… 6.09.2004 23:34
trminator Пусть хотим "потаскать" Panel1
// Начин… 17.09.2004 0:20
BlackShadow trminator, я так понял, что вопрос не о Drag'n… 18.09.2004 1:10
Atos Drag'n'Dock меня тоже интересует... Спасиб… 21.09.2004 23:00![]() ![]() |
|
Текстовая версия | 8.11.2025 8:50 |