Как запретить компоненту Edit вывод системного меню?

[marina15056]

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button = mbRight then ????????????????
end;

[ZuBy]

св-во PopupMenu измени, вставь свои пустой TPopupMenu

[BARNEY]

а горячие клавиши тоже надо биндить

[phomm]

есть большое подозрение на необходимость исключения возможности изменения текста - убрать пункты "отмена", "повтор", "вставить", "вырезать". если только это , то замечательно справится свойство Tedit.ReadOnly , а если надо ещё и запретить пункт "копировать" то можно даже использовать Edit1.enabled := false;

[marina15056]

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

а горячие клавиши тоже надо биндить

Блин, я почему-то думала, что можно запретить key 17 в процедуре KeyDown, и горячим клавишам хана.
Я не знаю, что такое биндить. Но это легко решилось с помощью майнменюшки ))))))) (Создаешь в майнменюшке дополнительные итомы, назначаешь на них эти горячие клавиши, потом прячешь их, и вуаля.)

св-во PopupMenu измени, вставь свои пустой TPopupMenu

Спасибо ZuBy. Это помогло )

А программа нужна, что бы вводить русский текст независимо от раскладки, и что бы никто не мог туда скопировать текст, только ручками. (защита от нерадивых)

[xxbesoxx]

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

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button = mbRight then ????????????????
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);


var //цифровая маска
  vrPos, vrLength, vrSelStart: byte;
const
  I: byte = 1;
    //I+1 = количество знаков после запятой (в данном случае - 2 знака)
begin

  with Sender as TEdit do
  begin
    vrLength := Length(Text); //определяем длину текста
    vrPos := Pos(',', Text); //проверяем наличие запятой
    vrSelStart := SelStart; //определяем положение курсора
  end;

  case Key of

    '0'..'9':
      begin
        //проверяем положение курсора и количество знаков после запятой
        if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
          Key := #0; //"погасить" клавишу
      end;
    ',', '.':
      begin
        //если запятая уже есть или запятую пытаются поставить перед
        //числом или никаких цифр в поле ввода еще нет
        if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
          Key := #0 //"погасить" клавишу
        else
          Key := #44; //всегда заменять точку на запятую
      end;
    #8: ; //позволить удаление знаков клавишей 'Back Space'
  else
    Key := #0; //"погасить" все остальные клавиши
  end;