TMemo: Kontextmenü ausblenden

[Bummi]

ein (leeres) Poupmenu dranhängen oder

Delphi-Quellcode:

  TMemo=Class(StdCtrls.Tmemo)
  public
    procedure WMRButtonDown(var Message: TWMLButtonDown); message WM_RBUTTONDOWN;
  End;
  TForm4 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    PopupMenu1: TPopupMenu;
    procedure Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}


procedure TMemo.WMRButtonDown(var Message: TWMLButtonDown);
begin
  if Name='Memo1' then
    begin
     //nop
   end else inherited;
end;