Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

HotKey в ActionList   Найти похожие ветки 

 
autootvetchik   (2003-06-24 11:28) [0]

В FAQ`ах не нашел, а вопрос такой:
Почему в НЕмодальной форме (Form.Show) не работают "горячие клавиши".
Подробнее:
- на главной форме есть SpeebButton`ы и Panel (Dock)
- при нажатии кнопок другие формы (на которых есть ActionList)помещаются в Panel (ManualDock) и показываются (FormShow).
Так вот, при ShowModal клавиши работают, а при Show нет, хотя сами Action работают нормально.

------------
procedure TForm1.SpeedButtonClick(Sender: TObject);
begin
if Form2=nil then Form2 := TForm2.Create(Self);
Form2.ManualDock(Form1.Panel1, nil);
Form2.Show;
end;
------------

ЗАРАНЕЕ СПАСИБО ЗА ОТВЕТ :-)


 
titnn ©   (2003-06-24 11:53) [1]

зарегистрируй HotKey , и форма будет ловить сочетание в любом состоянии , даже не активном...


 
autootvetchik   (2003-06-25 08:07) [2]

SORRY за некорректный вопрос - проблемма оказалась немного глубже: причина не в "модальности" формы, а в Dock. Т.е. пока форма свободна, все работает нормально. Как только она помещается в Dock-контейнер (например, TPanel) на другой форме (программно или мышкой) все - на ней можно ставить крест. Перестают работать HotKey в Action, хотя сами Action работают нормально, перестает работать PostMessage(Handle, WM_NEXTDLGCTL, 0, 0), а попытка установить ActiveCOntrol := Form2.Edit1 вообще вызывает ошибку. Есть ли лекарство чтобы форма работала и самостоятельно и в Dock`е ???



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
14-20293
wern
2003-06-19 08:23
2003.07.07
Возведение числа в степень.


3-20016
mikeee
2003-06-15 17:16
2003.07.07
Как узнать DBGrid.Columns


14-20248
san1drug
2003-06-19 18:37
2003.07.07
Проблемы при отладке в Delphi7


3-20019
Caponid
2003-06-11 15:34
2003.07.07
Как в TDBGrid запретить перемещение курсора при


3-19993
AkaSaint
2003-06-11 00:40
2003.07.07
Не могу создать Lookup-поле без DataSet