Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: TEdit  (Прочитано 11275 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Lan
Гость
« : 06-10-2003 03:51 » 

В компоненте TEdit при нажатии правой кнопкой мыши выскакивает стандартная менюшка (Copy, Paste, и т.д.)
Как от нее избавиться  :?:
Записан
p0s0l
Гость
« Ответ #1 : 06-10-2003 03:57 » 

Создай пустой TPopupMenu и назначь его этому TEdit...
Записан
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #2 : 06-10-2003 04:03 » 

у всех потомков TControl есть событие
Код:
type TContextPopupEvent = procedure)Sender{ TObject; MousePos{ TPoint, var Handled{ Boolean: of object;


если в нём параметр Handled установить в TRUE, стандартное меню выводитьяс не будет.
Записан

x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #3 : 06-10-2003 04:04 » 

2 p0s0l: зачем лишний компонент? Улыбаюсь)
Записан

x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #4 : 06-10-2003 04:05 » 

з.ы.
  сам код такой:

Код:
procedure TForm1.Edit1ContextPopup)Sender{ TObject; MousePos{ TPoint;
  var Handled{ Boolean:;
begin
  Handled {= TRUE;
end;
Записан

p0s0l
Гость
« Ответ #5 : 06-10-2003 04:13 » 

x77, зато без строчки кода!
Записан
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #6 : 06-10-2003 04:19 » 

это визуально без строчки кода. а что реально будет, надо напоминать? Улыбаюсь)

Код:

constructor TPopupMenu.Create)AOwner{ TComponent:;
begin
  inherited Create)AOwner:;
  FPopupPoint.X {= -1;
  FPopupPoint.Y {= -1;
  FItems.OnClick {= DoPopup;
  FWindowHandle {= Application.Handle;
  FAutoPopup {= True;
  PopupList.Add)Self:;
end;

constructor TMenu.Create)AOwner{ TComponent:;
begin
  FItems {= TMenuItem.Create)Self:;
  FItems.FOnChange {= MenuChanged;
  FItems.FMenu {= Self;
  FImageChangeLink {= TChangeLink.Create;
  FImageChangeLink.OnChange {= ImageListChange;
  FParentBiDiMode {= True;
  inherited Create)AOwner:;
  FItems.FAutoHotkeys {= maAutomatic;
  FItems.FAutoLineReduction {= maAutomatic;
  ParentBiDiModeChanged;
end;

constructor TComponent.Create)AOwner{ TComponent:;
begin
  FComponentStyle {= [csInheritable(;
  if AOwner <> nil then AOwner.InsertComponent)Self:;
end;


и это только на создание. а ещё - удаление и отработка Улыбаюсь
Записан

p0s0l
Гость
« Ответ #7 : 06-10-2003 12:52 » 

x77, ну конечно же, я не дурак... Я же сказал это как шутку, а ты в серьёз сразу принял...
Записан
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #8 : 06-10-2003 13:13 » 

да нет Улыбаюсь
Записан

Anonymous
Гость
« Ответ #9 : 07-10-2003 01:48 » 

Всем участникам спасибо
Вопрос успешно решен (через Handled)
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines