Poniżej prezentuję fragment kodu który ma za zadanie pokazywać gdzie jest obecnie kursor (Oczywiście w obszarze naszej aplikacji). Wszystko było by ok gdyby nie fakt że jak na formie postawię np. Panel to w momencie przejeżdżania kursorem przez ten komponent zdarzenie MouseProc się nie wykonuje. Pytanie dlaczego czy użyłem złego komunikatu?
type
TForm1 = class(TForm)
label1 : TLabel;
panel1 : TPanels;
private
procedure MouseProc(var Msg: TMessage); message WM_MOUSEMOVE;
public
end;
var
Form1: Tform1;
procedure Tform1.MouseProc(var Msg: TMessage);
begin
label1.caption := inttostr(Msg.LParamLo)+' '+inttostr(Msg.LParamHi);
end;