Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.28;
Скачать: CL | DM;

Вниз

Как перетаскивать форму не за заголовок   Найти похожие ветки 

 
DVK   (2006-05-02 15:54) [0]

Если на форме стоит 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 форма не перемещается.


 
ECM ©   (2006-05-02 17:16) [1]

Просто добавьте еще обработчик для 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;


Удачи :)


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

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



Страницы: 1 вся ветка

Текущий архив: 2007.01.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
2-1168103202
CoolLamer
2007-01-06 20:06
2007.01.28
А как передать данные из ОДНОЙ процедуры в ДРУГУЮ?


15-1168249479
Parus
2007-01-08 12:44
2007.01.28
ASP VBSCRIPT


2-1168434601
Vitaly_799
2007-01-10 16:10
2007.01.28
Минимизация окна программы


15-1168179208
kaZaNoVa
2007-01-07 17:13
2007.01.28
Ищу реализацию RSA - алгоритма на PHP


2-1168229678
Рекорд
2007-01-08 07:14
2007.01.28
Как быстро скопировать record ?