Как определить на каком Edit был курсор

[Alexandr17]

В PoupMenu2 есть кнопка и это меню используется для нескольких Edit
После нажатия кнопки нужно определить имя Edit'а где эта кнопка была использована. И вставить туда определенную строку. Вопрос как это сделать. Самый легкий способ.

[Человек_Борща]

В OnClick пункта меню найти элемент с фокусом, If Edit1.Focused then как-то так...

[Аватар]

найти элемент с фокусом

А не надо ни чего искать, уже все найдено

procedure TForm1.PItem1Click(Sender: TObject);
begin
  if ActiveControl<>nil then Label1.Caption:=ActiveControl.Name;
end;

или так

procedure TForm1.PItem1Click(Sender: TObject);
begin
  if ActiveControl is TEdit then TEdit(ActiveControl).Text:=ActiveControl.Name;
end;

[милт]

У каждого эдита есть событие OnMouseMove(когда мышкой над ним водишь). когда происходит это событие присваивай переменной имя этого эдита.

[northener]

"Навороченный" вариант

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  TEdit(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent).Text:='Bla-Bla';
end;

[Alexandr17]

Сообщение от Аватар

А не надо ни чего искать, уже все найдено

procedure TForm1.PItem1Click(Sender: TObject);
begin
  if ActiveControl<>nil then Label1.Caption:=ActiveControl.Name;
end;

или так

procedure TForm1.PItem1Click(Sender: TObject);
begin
  if ActiveControl is TEdit then TEdit(ActiveControl).Text:=ActiveControl.Name;
end;

Не подходит нужно имено с TEdit работать

[doktor255]

procedure TForm1.N1Click(Sender: TObject);
var Edit: TEdit; // самый что ни на есть TEdit;
begin
if (ActiveControl <> nil) and (ActiveControl.ClassName = 'TEdit') then
  begin
    Edit := (ActiveControl as TEdit); // Получили ссылку на TEdit
    Edit.Text := '123';
    Edit.Tag := 0;
    Edit.Font.Color := ClRed; // работаем с TEdit
  end;
end;

[Alexandr17]

Спасибо вопрос решен.