Вниз
Скачать: CL | DM;

Шоткаты   Найти похожие ветки 

← →
Domkrat   (2008-03-19 15:30) [0]

На главной форме, в главном меню есть кнопка с ShortCut = del, и на этой же форме есть TEdit.
Вопрос, как отключать срабатывание ShotCut в главном меню, в момент когда я редакирую в TEdit, TMemo etc..?


← →
NewZ   (2008-03-19 23:26) [1]

У тебя главное меню. Кнопка называется допустим N1.
Тогда
N1.ShortCut := "None" или N1.Enabled := False;

Должно помочь -).


← →
Kolan ©   (2008-03-20 09:57) [2]

Правильный ответ я незнаю, но можно попробовать написать такой обработчик OnUpdate у Экшена.

procedure TForm1.Action1Update(Sender: TObject);
begin
 if Sender is TAction then
   (Sender as TACtion).Enabled := not Edit1.Focused;
end;


← →
Leonid Troyanovsky ©   (2008-03-20 11:03) [3]


> Kolan ©   (20.03.08 09:57) [2]

> Правильный ответ я незнаю

Не назначать такие горячии клавиши :)

Ну, или обрабатывать ручками

procedure TForm1.N21Click(Sender: TObject);
begin
 if ActiveControl is TCustomEdit then
   with TCustomEdit(ActiveControl) do
     begin
       if SelLength = 0 then
         SelLength := 1;
         if SelText[1] = #13 then
           SelLength := 2;
       SelText := "";
     end;
end;

--
Regards, LVT.


← →
Kolan ©   (2008-03-20 11:34) [4]

> Ну, или обрабатывать ручками

Уж лучьше, имхо, там где надо Del в OnKeyDown ловить, чем такое делать вручную&#133


← →
Domkrat   (2008-03-20 15:21) [5]

Спасибо всем, понял, что универсального лекарства от этого нет.

Я думал, что можно как то перехватить сообщение message на TAplication во время редактирования, например в TEdit, и запретить его отрабатываться в главном меню.    

Попробую еще покапать в этом направлении.


← →
Игорь Шевченко ©   (2008-03-20 15:31) [6]


> Спасибо всем, понял, что универсального лекарства от этого
> нет.


Есть. Не делать пункт главного меню с таким шорткатом


← →
{RASkov} ©   (2008-03-20 15:34) [7]

> [5] Domkrat   (20.03.08 15:21)
> Попробую еще покапать в этом направлении.

Лучше копай(или капай капли) в направлении певого предложения из [3] :) т.е.

> Не назначать такие горячии клавиши

Имхо.... ну этож надо додуматься чтоб при наличии редакторов текста например, и стандартной кнопки удаления, назначить на кнопку другое действие и еще быть не довольным при этом :)


← →
{RASkov} ©   (2008-03-20 15:38) [8]

> [5] Domkrat   (20.03.08 15:21)

Впрочем задача решаема...возможно... но зачем?!


← →
Игорь Шевченко ©   (2008-03-20 16:20) [9]


> Лучше копай(или капай капли) в направлении певого предложения
> из [3]


тут такой момент: Del действует не только на TCustomEdit



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c
2-1228290164
DimonS
2008-12-03 10:42
2009.01.18
Возможно ли сгруппировать записи без ограничивающих пробелов?


2-1228155464
antonn
2008-12-01 21:17
2009.01.18
название скринсейвера


2-1228229287
Marixa
2008-12-02 17:48
2009.01.18
Календарь нв Delphi


15-1227391891
DillerXX
2008-11-23 01:11
2009.01.18
Фотожаба или нет?


2-1228511695
Suntechnic
2008-12-06 00:14
2009.01.18
Нужнапомощь с запросом




   Наверх