|
#1
|
|||
|
|||
Cursor in Control
Господа программисты, возник вопрос: Имеется форма на которой расположены два ListBox.
Необходимо вывести имя того ListBox'а над которым находится курсор (ApplicationEvents - OnIdle). Я реализовал такую возможность через отслеживание координат (ClientOrigin). Может можно реализовать это как-нибудь по другому. |
#2
|
|||
|
|||
У компонентов используйте события OnMouseMove. Можно к каждому компоненту привязать свой обработчик:
S:= 'ListBox1'; потом используйте эту S. Можно один обработчик привязать ко всем компонентам: Код:
procedure TForm1.ComponMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Sender is TListBox then S:= (Sender as TComponent).Name; end; |