![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 24.08.2007
Сообщений: 26
|
![]()
Бьюсь головой об стенку... Вроде все просто, но ниче не могу сделать... Как сделать перетаскивание формы мышкой (бордерстиль=ноне) ? Т.е. зажал мышку и потащил форму....
|
![]() |
![]() |
#2 |
Новичок
Джуниор
Регистрация: 29.08.2007
Сообщений: 2
|
![]()
попробуй в MouseDown формы:
ReleaseCapture; Self.perform(WM_SysCommand, $F012, 0); |
![]() |
![]() |
#3 |
Great Code Monkey
Форумчанин
Регистрация: 09.08.2007
Сообщений: 533
|
![]()
Угу, а если на форме панелька допустим будет, то что делать будем?
Правильно. Будем делать по-другому... |
![]() |
![]() |
#4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
![]()
s-force
А за что вы хотите перетаскивать ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
![]() |
![]() |
#5 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
Ладно вам, хорош плавить ему моск.
s-force, если еще не убился апстену.... вот то, что тебе надо: Код:
Для изменения - достаточно вставить соответствующие блоки кода в обработчики нужного компонента.
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
#6 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
![]()
Мсье знает толк в извращениях =)
Все проще ) procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST; procedure Tform1.WMNCHITTEST(var Msg: TMessage); begin inherited; Msg.Result := HTCAPTION; end; procedure Tform1.FormCreate(Sender: TObject); begin SetWindowLong(Handle, GWL_STYLE, GETWINDOWLONG(Handle, GWL_STYLE) and (not WS_CAPTION)); Height := ClientHeight; end;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
![]() |
![]() |
#7 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
Иногда проще - не есть лучше =)
сор, за офтоп.
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
#8 | |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
![]() Цитата:
пыщь
|
|
![]() |
![]() |
#9 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
Вот еще вариант:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 10.08.2007
Сообщений: 43
|
![]()
размести
Код:
а потом везде за что надо перетаскивать на моусдаун эту процедуру воткни
Комьютер не поддаётся законам физики:
Глюки появляются из неоткуда, файлы пропадают в никуда... Объём диска называется весом и измеряется в метрах... --------------------------------------------------- Дрова для модема находятся на диске, а дрова для дисковода - в интернете... |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перетаскивание | geniy | Компоненты Delphi | 9 | 12.01.2009 02:10 |
Перетаскивание окон | werat | Свободное общение | 2 | 18.08.2008 11:58 |
Перетаскивание обьектов | Witaliy | Общие вопросы Delphi | 6 | 27.04.2008 19:22 |
Перетаскивание формы за любой объект,находящийся на ней | Романнн | Общие вопросы Delphi | 2 | 04.11.2007 16:00 |