Всем привет!
Имеется форма, два эдита, контекстное меню, обработку контекстного меню попробовал повесить на оба эдита, а почему-то не работает, подскажите плиз, что не так, спасибо.
Код:
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;