| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как перетаскивать форму не за заголовок [Delphi, Windows]

DVK ©   (2006-05-02 15:54:00) 

Если на форме стоит Label с выравниванием caClient. То есть, можно ли сделать так, чтобы все события, которые обрабатываются Label'ом (кроме перерисовки), обрабатывала форма?

Попытался сделать на KOL то, что на VCL делается строчками:

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);
begin
 inherited;
 if M.Result = htClient then
 M.Result := htCaption;
end;

Получилось примерно вот что:

function TForm1.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
 Result := FALSE;
 CASE Msg.message OF
 WM_NCHITTEST:
   begin
     rslt:=form.CallDefWndProc(msg);
     if Rslt = htClient then
        Rslt := htCaption;
     Result:=true;
   end;
 end;
end;

Но вот не получается - за Label форма не перемещается.

---

DVK   (2006-05-03 09:27:00) [1]

Спасибо, всё заработало.

---

ECM   (2006-05-02 17:16:00) [2]

Просто добавьте еще обработчик для Label

function TForm1.Label1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
 Result := FALSE;
 if (Msg.message = WM_NCHITTEST) then begin
   Rslt := HTTRANSPARENT;
   Result := TRUE;
 end;
end;

Удачи :)

---

Наверх