запретить меню в компонентов типа Edit, Memo, ComboBox

← →
foreverDelphi © (2007-10-10 14:30) [0]

самый простой, неприхотливый способ, если кто-то знает подскажите

← →
clickmaker © (2007-10-10 14:33) [1]

TForm1 = class(TForm)
Memo1: TMemo;
private
{ Private declarations }
FMemoProc: TWndMethod;
procedure NewMemoProc(var Msg: TMessage);

procedure TForm1.FormCreate(Sender: TObject);
begin
FMemoProc := Memo1.WindowProc;
Memo1.WindowProc := NewMemoProc;
end;

procedure TForm1.NewMemoProc(var Msg: TMessage);
begin
if Msg.Msg = WM_CONTEXTMENU then
Msg.Result := 1
else
FMemoProc(Msg);
end;

← →
clickmaker © (2007-10-10 14:35) [2]

даже проще
if Msg.Msg <> WM_CONTEXTMENU then
FMemoProc(Msg);

запретить меню в компонентов типа Edit, Memo, ComboBox Найти похожие ветки