Текущий архив: 2008.08.31;
Скачать: CL | DM;

Вниз

Системное меню 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;и все.

---

← →
Elec3C ©   (2007-10-22 17:02) [3]

Спасибо.

---

Страницы: 1 вся ветка

Текущий архив: 2008.08.31;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c