|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
29.08.2007, 00:52 | #1 |
Пользователь
Регистрация: 24.08.2007
Сообщений: 26
|
Перетаскивание формы
Бьюсь головой об стенку... Вроде все просто, но ниче не могу сделать... Как сделать перетаскивание формы мышкой (бордерстиль=ноне) ? Т.е. зажал мышку и потащил форму....
|
29.08.2007, 01:04 | #2 |
Новичок
Джуниор
Регистрация: 29.08.2007
Сообщений: 2
|
попробуй в MouseDown формы:
ReleaseCapture; Self.perform(WM_SysCommand, $F012, 0); |
29.08.2007, 10:56 | #3 |
Great Code Monkey
Форумчанин
Регистрация: 09.08.2007
Сообщений: 533
|
Угу, а если на форме панелька допустим будет, то что делать будем?
Правильно. Будем делать по-другому... |
29.08.2007, 11:16 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
s-force
А за что вы хотите перетаскивать ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
29.08.2007, 11:44 | #5 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Ладно вам, хорош плавить ему моск.
s-force, если еще не убился апстену.... вот то, что тебе надо: Код:
Для изменения - достаточно вставить соответствующие блоки кода в обработчики нужного компонента.
Life is too short, play more...
Как правильно задавать вопросы |
29.08.2007, 11:57 | #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 канал клуба программистов|Мои статьи |
29.08.2007, 12:14 | #7 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Иногда проще - не есть лучше =)
сор, за офтоп.
Life is too short, play more...
Как правильно задавать вопросы |
29.08.2007, 13:45 | #8 | |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
Цитата:
пыщь
|
|
31.08.2007, 07:35 | #9 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Вот еще вариант:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
06.09.2007, 13:51 | #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 |