[VyachNik]

Всем привет!
Имеется форма, два эдита, контекстное меню, обработку контекстного меню попробовал повесить на оба эдита, а почему-то не работает, подскажите плиз, что не так, спасибо.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.PopupMenu := PopupMenu1;
  Edit2.PopupMenu := PopupMenu1;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
    with Sender as TEdit do
      Text := 'Hello!';
end;

[Verevkin]

Код:

procedure TForm1.N3Click(Sender: TObject);
begin
    with Sender as TComponent do
      ShowMessage(Name); //Text := 'Hello!';
end;

[dr. F.I.N.]

И не должно. В Вашем исполнении полю Text присваивается значение тому, кто вызвал этот метод (Sender). В свою очередь, этот метод вызван менюитемом N3 (Sender=N3).

Чтобы решить Вашу задачу, достаточно посмотреть на свойство PopupMenu.PopupComponent:

Код:

procedure TForm1.N3Click(Sender: TObject);
begin
  if PopupMenu1.PopupComponent is TEdit then
  TEdit(PopupMenu1.PopupComponent).Text := 'test';
end;

[Verevkin]

такого мощного минуса за полезный пост я за 18 лет в интернетах ещё не получал.
в очередной раз убедился: каждое доброе дело должно быть наказано.

АдмиН: Репутацию я поднял до -50
ПС. Не стоит выделять подпись более, чем это необходимо

[M.A.D.M.A.N.]

Сообщение от Verevkin

такого мощного минуса за полезный пост я за 18 лет в интернетах ещё не получал.
в очередной раз убедился: каждое доброе дело должно быть наказано.

Ну обработчик нажатия меню, там sender — TMenuItem. ТС нужно эдит изменить, а не изменить текст элемента попап-меню.
Так что твой ответ, мягко говоря, не в тему, собственно как и мой.

[dr. F.I.N.]

Сообщение от Verevkin

такого мощного минуса за полезный пост я за 18 лет в интернетах ещё не получал.
в очередной раз убедился: каждое доброе дело должно быть наказано.

Я глубоко извиняюсь за оффтоп. Но должен изъясниться. Минус поставил я, а такой большой получился, потому что у меня репутация высокая, как следствие и минус у меня жирнее.

А теперь обосную. Я уже много раз натыкался на твои сообщения в разных темах и твои ответы мягко говоря "не в тему". Ты не предлагаешь решения, не указываешь направление куда копать и т.п. В глобальном понимании твои ответы пока бесполезны. А порой еще и вредят, как в этой теме. Ты не разобрался в вопросе ТСа и даешь заведомо неверное решение.

К сожалению я что-то не могу тебе подправить репутацию на текущий момент. Надеюсь ты будешь внимательнее, а я подправлю свой минус.