| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Системное меню Edit'а [Delphi, Vista]
Elec3C © (2007-10-22 01:36:00)Как отключить выпадание системного меню(Вырезать, Вставить, Копировать) в Edit'е при нажатии на правую клавишу мыши или клавишу Menu?
P.S. В VCL я бы создал путое popupmenu и присвоил его Edit'y. В KOL такое не прокатывает?
Elec3C (2007-10-22 17:02:00) [1]Спасибо.
Compiler (2007-10-22 15:37:00) [2]
> В VCL я бы создал путое popupmenu и присвоил его Edit'y.
> В KOL такое не прокатывает?
Прокатывает.
Нужно создать в меню один Item иpopupmenu1.ItemVisible[0]:=False;и все.
Compiler (2007-10-22 15:32:00) [3]
function TForm1.EditBox1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
begin
result:=false;
if msg.message =WM_RBUTTONDOWN then
msg.message:=0;
end;
Но с клавиатуры системное меню всеравно выпадает
| |
