Поиск метки под курсором.

[IliaIT]

Вобщем такая образовалась задача....
Есть форма в которой есть несколько вложенных в друг друга PageControl, на каждой странице есть метки с данными из базы. (то есть имена нужных Label 'ов я знаю), надо при нажатии правой кнопки определить название метки под курсором и запомнить его для последующей обработки.

Можно тупо присвоить каждой метке событие ContextPopup для определения имени:

procedure TForm1.SPT961_dtContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  parametr_graf:='SPT961_dt';
end;

Но меток таких очень много, порядка 1000, хотелось бы не увеличивать в разы код программы,
вариант бежать по всем областям меток не подходит так как у меток могут быть одинаковые координаты, хотя сами метки располагаются на разных листах PageControl' а.

P.S. объясняю плохо, приложил маленькую картинку программы.

[Пепел Феникса]

можно всем меткам назначить одну процедуру ContextPopup и использовать параметр Sender

[IliaIT]

А тогда как смотреть в этом параметре имя метки?

[raxp]

если у вас множество однотипных компонентов как label и нужно идентифицировать их - используйте свойство tag компонента, т.е. присвойте каждому объекту свой tag=0 (по умолчанию), 1, 2 и т.д.
...потом объедините под одним событием popupcontext все метки:

procedure TForm1.Label3ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
 with (sender as tlabel) do
  form1.caption:= inttostr(tag) // как пример
  // ну или имя
  //form1.caption:= name
end;

...тестовый пример во вложении

[IliaIT]

Спасибо всё понял, можно закрывать тему.

Хотя есть идея по поводу отслеживания курсора и определения под ним объекта по координатам и отображению на текущий момент времени, но это уже больше теоретические исследования для меня будут. для поставленной задачи вполне достаточно полученного ответа.