Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как убрать контекстное меню в tEdit?

Автор: Данкинг 17.1.2008, 16:11

Щёлкаю правой кнопкой по edit, и при этом появляется стандартное меню: вырезать, удалить и т.п. Как сделать, чтобы меню этого не появлялось?

Автор: willker 17.1.2008, 16:21

Код


procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
Handled:=true;
end;

Автор: Данкинг 17.1.2008, 20:23

Цитата(willker @ 17.1.2008, 16:21)

Код


procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
Handled:=true;
end;

Спасибо, так получилось. smile