Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Перетаскивание формы за Label? 


Shadow77   (2002-01-23 09:22) [0]

Как сделать так,чтобы можно было перетащить окно программы, взявшись за Label. Нашел про всю форму, а мне именно label нужен... Наверное, я торможу, но чего-то никак не получается. Так что приведите примерчик плиз!



Chris   (2002-01-23 09:28) [1]

Нужно обрабатывать сообщение WM_NCHITTEST:
TForm1 = class(TForm)
...
private
...
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
...
end;
...
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited; { вызов унаследованного обработчика }
if M.Result = htClient then { Мышь сидит на окне? }
M.Result := htCaption; { Если да - то пусть Windows думает, что }
{ мышь на caption bar }
end;
...
Окно можно сделать вообще без caption.

Вообще-то окно в данном случае перетаскивается за любой компонент окна.



Shadow77   (2002-01-23 09:38) [2]

Это для формы... А как переделать для label?



Nemesis   (2002-01-23 09:39) [3]

> Chris
А ты пробывал такой способ? У меня такой код работает только когда перетаскиваешь за клиентскую область окна - на панель это не распространяется ...



Shadow77   (2002-01-23 09:41) [4]

Да, именно так...



Chris   (2002-01-23 09:49) [5]

>Shadow77
Для Label как раз этот способ срабатывает, а для Panel можно попробовать такой код:

procedure TForm1.MouseDownPanel1(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;



Alx2   (2002-01-23 09:54) [6]

По мотивам совета Chris © (23.01.02 09:28)

Проверил - работает.

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if PtInRect(Label1.BoundsRect,ScreenToClient(point(m.xpos, m.ypos))) then
if M.Result = htClient then
M.Result := htCaption;
end;



Shadow77   (2002-01-23 10:31) [7]

C label получается, с Panel тоже... Вот только у меня Panel, а на ней Label... :)



Alx2   (2002-01-23 10:46) [8]

По мотивам совета Chris © (23.01.02 09:49)

А нельзя ли то же самое повесить на обработчик Label1MouseDown? :))

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;



Shadow77   (2002-01-23 11:26) [9]

А это идея! :)
Можно! :)))
Торомознул опять... Бывает...
Заработало как надо. Всем спасибо!



Nemesis   (2002-01-23 12:10) [10]

Так и в FAQ просится




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.031 c
1-18841           Лана Розанова         2002-01-22 11:45  2002.02.07  
RichEdit


1-18852           nikols                2002-01-22 11:06  2002.02.07  
Кто нибудь знает, как из PDF файла извлечь сразу весь текст и графику?


3-18729           Rub                   2002-01-09 17:28  2002.02.07  
Пробую программно изменить пароль доступа к БД...


3-18781           Radix                 2002-01-09 10:34  2002.02.07  
Инфа не удаляется в таблицах InterBase, что делаю неправильно?


1-18875           Gabi100               2002-01-23 10:48  2002.02.07  
Прилипание формы