PHP DM Gate v0.9 » Системное меню Edit'а <span class="vd">[Delphi, Vista]</span>

Elec3C © (22.10.07 01:36) [0]

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

<Цитата>
Compiler © (22.10.07 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 © (22.10.07 15:37) [2]

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

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

и все.

<Цитата>
Elec3C © (22.10.07 17:02) [3]

Спасибо.

<Цитата>