Системное меню Edit а

← →
Elec3C © (2007-10-22 01:36) [0]

Как отключить выпадание системного меню(Вырезать, Вставить, Копировать) в Edit"е при нажатии на правую клавишу мыши или клавишу Menu?
P.S. В VCL я бы создал путое popupmenu и присвоил его Edit"y. В KOL такое не прокатывает?

← →
Compiler © (2007-10-22 15:32) [1]

function TForm1.EditBox1Message(var Msg: tagMSG; var Rslt: Integer): Boolean; begin result:=false; if msg.message =WM_RBUTTONDOWN then msg.message:=0; end;
Но с клавиатуры системное меню всеравно выпадает

← →
Compiler © (2007-10-22 15:37) [2]

> В VCL я бы создал путое popupmenu и присвоил его Edit"y.
> В KOL такое не прокатывает?

Прокатывает.
Нужно создать в меню один Item и popupmenu1.ItemVisible[0]:=False;и все.

Спасибо.

Системное меню Edit а Найти похожие ветки