Где курсор

[digitalis]

Давно не задавал чайницких вопросов... Д7.
Есть несколько 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;

[digitalis]

BDA,Arigato - огромный сенькс! Напомнили волшебную строку (Sender as TEdit), и сам вспомнил не менее волшебное свойство Tag. Журчит! А .text не идёт, т.к. заранее неизвестен. .Name пригодилось бы, но с Tag проще.
Wonderful,świetnie, ეჲბპვ !

[BDA]

Name и text в этих примерах вторичны. Главное, способ получения требуемого компонента. Может быть и tag не нужен, но это уже вам виднее, по решаемой задаче.

[digitalis]

Не, Tag - самый то. Сразу определяет индекс массива для закидывания данных.
Ну и чтоб покончить с этим вопросом.
Есть ли способ перебирать контролы, исследуя их: если он Едит и при этом... , то... ; если он батон, то... ?
Кажется, наметилось решение. Буду копать.
=========================
Докопался. Вот.

procedure TForm1.Label7Click(Sender: TObject);
var
i,it: Integer;
ChildControl: TControl;
begin
for I:= 0 to 20 do
  begin
   ChildControl := Form1.Controls[i];
   it := ChildControl.Tag ;
   if it in [1,2,3,4,5,6,17,18,19,20,21,22] then
      begin
         Form1.Caption := '---' ;
           Memo1.Lines.Add(IntToStr(it)) ;
           (ChildControl as TEdit).Text := IntToStr(it)
      end ;
  end;
end;