Где курсор

Posted by obzor under Delphi

Есть несколько Edit’ов. Вопрос: можно ли (и как?), имея на всех один обработчик OnClick, узнать — в какой из них попал курсор — по TabOrder или по координатам относительно формы или ещё как?
Про массив Edit’ов, создаваемых динамически, я в курсе, там это не сложно. А если они статические ?
Ведь цикл в .dfm не предусмотрен, насколько знаю.
Есть GetCursorPos — оно даёт абсолютные координаты курсора. Если брать их — Form1.Top (Left) — это относительно самой формы — или клиентской области?

BDA

procedure TForm1.edt1Click(Sender: TObject);
begin
  ShowMessage((Sender as TEdit).text);
end;

Arigato

Вот, например, в таймере выводит Name компонента, на котором в данный момент установлен фокус:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := ActiveControl.Name;
end;

тема на форуме

Случайные статьи

• Исключения не выводить окно ошибки
• Импорт TXT файлов в Excel
• Программно нажать пункт меню в блокноте
• Батники для компиляции любой версией Delphi
• Искусство изменеия GTA
• При отсутствии коннекта IdHttp должен быть выключен
• Как сделать если число меньше 3-х знаков — приписывался 0 перед числом
• Поиск минимального и максимального элемента массива
• Исходники ОС
• Как сделать, чтобы заполненные ячейки в excel считались с условием?