TEdit

[Lan]

В компоненте TEdit при нажатии правой кнопкой мыши выскакивает стандартная менюшка (Copy, Paste, и т.д.)
Как от нее избавиться  :?:

[p0s0l]

Создай пустой TPopupMenu и назначь его этому TEdit...

[x77]

у всех потомков TControl есть событие

Код:

type TContextPopupEvent = procedure)Sender{ TObject; MousePos{ TPoint, var Handled{ Boolean: of object;

если в нём параметр Handled установить в TRUE, стандартное меню выводитьяс не будет.

[x77]

2 p0s0l: зачем лишний компонент? )

[x77]

з.ы.
  сам код такой:

Код:

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

[p0s0l]

x77, зато без строчки кода!

[x77]

это визуально без строчки кода. а что реально будет, надо напоминать? )

Код:

constructor TPopupMenu.Create)AOwner{ TComponent:;
begin
  inherited Create)AOwner:;
  FPopupPoint.X {= -1;
  FPopupPoint.Y {= -1;
  FItems.OnClick {= DoPopup;
  FWindowHandle {= Application.Handle;
  FAutoPopup {= True;
  PopupList.Add)Self:;
end;

constructor TMenu.Create)AOwner{ TComponent:;
begin
  FItems {= TMenuItem.Create)Self:;
  FItems.FOnChange {= MenuChanged;
  FItems.FMenu {= Self;
  FImageChangeLink {= TChangeLink.Create;
  FImageChangeLink.OnChange {= ImageListChange;
  FParentBiDiMode {= True;
  inherited Create)AOwner:;
  FItems.FAutoHotkeys {= maAutomatic;
  FItems.FAutoLineReduction {= maAutomatic;
  ParentBiDiModeChanged;
end;

constructor TComponent.Create)AOwner{ TComponent:;
begin
  FComponentStyle {= [csInheritable(;
  if AOwner <> nil then AOwner.InsertComponent)Self:;
end;

и это только на создание. а ещё - удаление и отработка

[p0s0l]

x77, ну конечно же, я не дурак... Я же сказал это как шутку, а ты в серьёз сразу принял...

[x77]

да нет

[Anonymous]

Всем участникам спасибо
Вопрос успешно решен (через Handled)