OnMouseEnter, OnMouseLeave
OnMouseEnter, OnMouseLeave
OnMouseEnter, OnMouseLeave type TForm1 = class(TForm) private { Private declarations } procedure WMMouseEnter(var msg: TMessage); message CM_MOUSEENTER; procedure WMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE; public { Public declarations } end; далее жми Ctlr+Shift+C и у тебя появиться их реализация, все готово. procedure TForm1.WMMouseEnter(var msg: TMessage); begin end; procedure TForm1.WMMouseLeave(var msg: TMessage); begin end;
