Где курсор

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;

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

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

• Вкл./Выкл. редактирование StringGrid’а
• Виртуальная клавиатура (программное нажатие кнопок)
• Рамки для страниц отчетов
• Генерация даты в заданном промежутке
• Рассылка. Выпуск 55.
• Определить центр чужого окна
• Smtp клиент на Visual C++. Отправить email
• Макросом выписать из таблицы строки по определённому признаку
• ICQ Client Delphi
• Разные цвета ссылок на одном сайте с помощью CSS