![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перемещать форму за Panel
Choco © (2006-11-09 09:10:00)Созрел еще один вопрос: с фомы я убрала стандартную шапку формы, теперь в качестве шапки у меня Panel. Как сделать так, чтоб была возможность перемещать форму, уцепившись именно за эту панель. Материала в инете много но большинство нерабочие коды...
Ketmar (2006-11-09 13:23:00) [1]>[20] Anatoly Podgoretsky(c) 9-Nov-2006, 13:15
>Зато гарантия, кроме того эту зону можно назначить в один
>пиксель
я ж не говорю, что хуже. я говорю, что сложнее. и сильно подозреваю, что проще автору дать [1], нежели рассказывать про hittest'ы. %-)
Anatoly Podgoretsky (2006-11-09 13:15:00) [2]> Ketmar (09.11.2006 13:07:18) [18]
Зато гарантия, кроме того эту зону можно назначить в один пиксель
Anatoly Podgoretsky (2006-11-09 13:13:00) [3]> RASkov (09.11.2006 12:26:15) [15]
А я предлагаю не флудить не обосновано.
> ЗЫ Я не принимал мескалин
Альтернатив много, может ты с детсва ешь грибы.
Возвращайся обратно к теме. Флуд он тоже по теме должен быть.
Ketmar (2006-11-09 13:07:00) [4]>[17] Romkin(c) 9-Nov-2006, 13:03
>Всего-то перекрыть WM_NCHITTEST и подменить когда надо
>результат на HTCAPTION
это несколько сложнее. %-)
Romkin (2006-11-09 13:03:00) [5]drag... drugs...
Всего-то перекрыть WM_NCHITTEST и подменить когда надо результат на HTCAPTION
Ketmar (2006-11-09 12:53:00) [6]>[15] RASkov 9-Nov-2006, 12:26
есть подозрение, что этому термину новичков учит какой-то очередной шибко гениальный автор. вот мне и интересно -- кто виноват? что делать -- ясно. %-)
RASkov (2006-11-09 12:26:00) [7]Заголовок... заглавок.... голова.... затылок.. на затылке кепка. У окна есть кепка. Вот.
> Choco © (09.11.06 10:48) [12]
На этом форуме советую выражаться "правильными" терминами, здесь не только примеры кодом дают но и культуре речи учат, что есть - верно.
ЗЫ Я не принимал мескалин:)
Ketmar (2006-11-09 12:15:00) [8]>[12] Choco(c) 9-Nov-2006, 10:48
>а как интересно еще ты объяснишь...
точно так, как в [13]. "шапка" -- она в отчётах и документах, к примеру. окно в шапке -- это последствия принятия мескалина.
Anatoly Podgoretsky (2006-11-09 11:17:00) [9]> Choco (09.11.2006 10:48:12) [12]
Заголовок окна принятый термин.
Choco (2006-11-09 10:48:00) [10]а как интересно еще ты объяснишь... "строка заголовка"? или "верхушка формы":)) вобщем проблема решена, спасиб всем за помощь
Ketmar (2006-11-09 10:43:00) [11]интересно, кто их научил сакральному термину "шапка"?
Орион (2006-11-09 09:52:00) [12]> че за бред такой не знаешь?
не знаю. ты удивлена?
Anatoly Podgoretsky (2006-11-09 09:52:00) [13]> Choco (09.11.2006 09:38:08) [8]
Когда проект перестает компилироваться, то он обычно сообщает почему.
Choco (2006-11-09 09:38:00) [14]черт.. у меня глюки... проект перестал компилится... наверно поэтому и не работает что с новой вставкой не компилился еще.. че за бред такой не знаешь? вроди никаких настроек не меняла....
Choco (2006-11-09 09:25:00) [15]тем не менее никакой реакции, чтож делать???
Орион (2006-11-09 09:22:00) [16]должно работать как часы...
Choco (2006-11-09 09:21:00) [17]так и вставила
procedure TForm2.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
еще в этом юните есть код который запрещает изменение размеров но вроде он не должен влиять...
Орион (2006-11-09 09:18:00) [18]прошу прощения "написала":)
Орион (2006-11-09 09:17:00) [19]ты бы еще просто предлог "не" написал.
Какие симптомы? Покажи в вставил этот кусок.
Но сдается мне в 17 строке у тебя проблемы.
Choco (2006-11-09 09:15:00) [20]не работает:(