Перемещать форму за Panel

← →
Choco © (2006-11-09 09:10) [0]

Созрел еще один вопрос: с фомы я убрала стандартную шапку формы, теперь в качестве шапки у меня Panel. Как сделать так, чтоб была возможность перемещать форму, уцепившись именно за эту панель. Материала в инете много но большинство нерабочие коды...

← →
Орион © (2006-11-09 09:12) [1]

в OnMouseDown панели:
const SC_DRAGMOVE = $F012; begin ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); end;

← →
Choco © (2006-11-09 09:15) [2]

не работает:(

← →
Орион © (2006-11-09 09:17) [3]

ты бы еще просто предлог "не" написал.
Какие симптомы? Покажи в вставил этот кусок.
Но сдается мне в 17 строке у тебя проблемы.

← →
Орион © (2006-11-09 09:18) [4]

прошу прощения "написала" :)

← →
Choco © (2006-11-09 09:21) [5]

так и вставила

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:22) [6]

должно работать как часы...

← →
Choco © (2006-11-09 09:25) [7]

тем не менее никакой реакции, чтож делать???

← →
Choco © (2006-11-09 09:38) [8]

черт.. у меня глюки... проект перестал компилится... наверно поэтому и не работает что с новой вставкой не компилился еще.. че за бред такой не знаешь? вроди никаких настроек не меняла....

← →
Anatoly Podgoretsky © (2006-11-09 09:52) [9]

> Choco (09.11.2006 09:38:08) [8]

Когда проект перестает компилироваться, то он обычно сообщает почему.

← →
Орион © (2006-11-09 09:52) [10]

> че за бред такой не знаешь?

не знаю. ты удивлена?

← →
Ketmar © (2006-11-09 10:43) [11]

интересно, кто их научил сакральному термину "шапка"?

← →
Choco © (2006-11-09 10:48) [12]

а как интересно еще ты объяснишь... "строка заголовка"? или "верхушка формы":)) вобщем проблема решена, спасиб всем за помощь

← →
Anatoly Podgoretsky © (2006-11-09 11:17) [13]

> Choco (09.11.2006 10:48:12) [12]

Заголовок окна принятый термин.

← →
Ketmar © (2006-11-09 12:15) [14]

>[12] Choco(c) 9-Nov-2006, 10:48
>а как интересно еще ты объяснишь...
точно так, как в [13]. "шапка" -- она в отчётах и документах, к примеру. окно в шапке -- это последствия принятия мескалина.

← →
RASkov (2006-11-09 12:26) [15]

Заголовок... заглавок.... голова.... затылок.. на затылке кепка. У окна есть кепка. Вот.

> Choco © (09.11.06 10:48) [12]

На этом форуме советую выражаться "правильными" терминами, здесь не только примеры кодом дают но и культуре речи учат, что есть - верно.
ЗЫ Я не принимал мескалин:)

>[15] RASkov 9-Nov-2006, 12:26
есть подозрение, что этому термину новичков учит какой-то очередной шибко гениальный автор. вот мне и интересно -- кто виноват? что делать -- ясно. %-)

drag... drugs...
Всего-то перекрыть WM_NCHITTEST и подменить когда надо результат на HTCAPTION

>[17] Romkin(c) 9-Nov-2006, 13:03
>Всего-то перекрыть WM_NCHITTEST и подменить когда надо
>результат на HTCAPTION
это несколько сложнее. %-)

> RASkov (09.11.2006 12:26:15) [15]

А я предлагаю не флудить не обосновано.

> ЗЫ Я не принимал мескалин

Альтернатив много, может ты с детсва ешь грибы.
Возвращайся обратно к теме. Флуд он тоже по теме должен быть.

> Ketmar (09.11.2006 13:07:18) [18]

Зато гарантия, кроме того эту зону можно назначить в один пиксель

>[20] Anatoly Podgoretsky(c) 9-Nov-2006, 13:15
>Зато гарантия, кроме того эту зону можно назначить в один
>пиксель
я ж не говорю, что хуже. я говорю, что сложнее. и сильно подозреваю, что проще автору дать [1], нежели рассказывать про hittest"ы. %-)

Перемещать форму за Panel Найти похожие ветки