Главная страница
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.01 c
6-20186
Tenrai
2003-04-04 06:11
2003.07.07
Новое окно при клике на ссылку в TWebBrowser


3-19973
M126
2003-06-12 17:00
2003.07.07
Как сделать вычисления в edit?


4-20349
BAPBAP
2003-05-07 09:20
2003.07.07
Как скрыть окно приложения?


14-20304
Polevi
2003-06-20 10:07
2003.07.07
Резюме


14-20265
han_malign
2003-06-20 10:36
2003.07.07
Вот такакая вот лирическая история...