Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Drag and Dock 
V
    Опции темы
shadowofjustice
  Дата 15.6.2008, 13:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте!
В общем возник вопрос, на который пока я никак не могу найти ответа. Инет 

облазил насколько мог. В общем проблема вот в чем. 
В программе возникла необходимость перемещать Image с помощью мыши 

(естественно чтобы он не вылазил за пределы формы и т.д. - но это потом). 

Тщетные попытки использования Docking почти ни к чему не привели: через 

одно перемещение он превращается в отдельный тулбар, а наследующее опять 

липнет к форме. 
Я нашел исходники как сделать его без панельки заголовка, но все равно он 

только через раз липнет к форме и событие OnEndDock соответсвенно тоже 

через раз срабатывает.
Помогите плиз.
З.Ы. может можно сделать это как-то проще через Drag?
PM MAIL   Вверх
Frees
Дата 16.6.2008, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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



перетаскивать компоненты в Run-Time
Возьмите форму, бросьте на нее панель, на onMouseDown панели прицепите код:

 
Код

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

{©Drkb v.3(2007): www.drkb.ru}

begin

ReleaseCapture;

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

end;
 


 


теперь в run-time панель можно таскать как в дизайне...


©Drkb
только в твоем случае не панель а TImage


Это сообщение отредактировал(а) Frees - 16.6.2008, 14:23


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
shadowofjustice
Дата 17.6.2008, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



не работает с Image  smile  и label на остальных пока не тестил...
но с панелькой все ок  smile 
PM MAIL   Вверх
Snowy
Дата 17.6.2008, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Вот ты как раз с неправильными компонентами и тестил.
Положи имаг на панельку и таскай панельку.
Имага сама окна не имеет, как и лабел.
PM MAIL   Вверх
shadowofjustice
Дата 18.6.2008, 18:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



спасибо! все гениальное, как говориться, просто smile 
чес скажу не допер до такого варианта)
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0444 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.