Советы по Delphi

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


Nomadic советует:

Надо обpабатывать сообщение CM_HITTEST (Это сообщение получают даже потомки от TGraphicsControl, не имеющего своего HWND).

Hапpимеp, так:

    procedure TLine.CMHitTest(var Message: TWMNCHitTest);
begin
if
PointInLineReg(Message.XPos, Message.YPos) then
begin

Message.Result := 1;
end
else
begin
Message.Result := 0;
end;
end;

Для органов управления Windows, если Вы не используете VCL, требуется обрабатывать сообщение WM_NCHITTEST. [001172]



Содержание раздела