|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Обработка контекстного меню несколькими эдитами
Всем привет!
Имеется форма, два эдита, контекстное меню, обработку контекстного меню попробовал повесить на оба эдита, а почему-то не работает, подскажите плиз, что не так, спасибо. Код:
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; Последний раз редактировалось VyachNik, 30.05.2016 в 22:58. |