Подскажите пожалуйста каким методом или по какому событию возможно обработать выход курсора мыши из области компонента (как частный случай - для компонента TeeChart).
Благодарю.
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
Для того, чтобы определить когда мышь над компонентом, в данном примере это будет панель, мы создадим новый класс, который будет являться потомком класса TPanel, и будет обрабатывать некоторые необходимые нам для данной задачи сообщения Windows.
Для этого определим следующим образом новый тип:
type
TMyPanel=class(TPanel)
public
procedure CMMouseEnter (var message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave (var message: TMessage); message CM_MOUSELEAVE;
end;
Называться наш новый класс будет TMyPanel. Определить его можете до определение класса формы, т.е. сразу после директивы uses.
После объявления экземпляра формы нужно объявить экземпляр нашего нового класса:
var
Form1: TForm1;
MyPanel1: TMyPanel;
В разделе implemetation обрабатываем несколько сообщения, именно этими обработчиками наш класс и будет отличаться от класса стандартной панели.
procedure TMyPanel.CMMouseEnter (var message: TMessage);
begin
Form1.Label1.Caption:='Мышь на панели';
end;
procedure TMyPanel.CMMouseLEAVE (var message: TMessage);
begin
Form1.Label1.Caption:='Мышь вне панели';
end;
По созданию окна создаём экземпляр нашего класса:
procedure TForm1.FormCreate(Sender: TObject);
begin
MyPanel1 := TMyPanel.Create(self);
with MyPanel1 do
begin
Parent := Form1;
Visible := True;
Left := 100;
Top := 100;
end;
end;
По уничтожению окна, соответственно, - уничтожаем:
procedure TForm1.FormDestroy(Sender: TObject);
begin
MyPanel1.Destroy;
end;
Материал кне мой, взят из Delphi World. За работоспособность ничего сказать не могу. Испытайте - может что и получится. А на самом деле, скачайте весь проект, там много чего интересного можно найти.
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
