Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > SetFocus на MDI окнах

Автор: RomanEEP 14.12.2009, 16:45

На главном форме стоит edit. На Child окне стоит панель.
Как сделать так, чтобы при клике на панель отбирался фокус ввода у едита на основной форме?

Я пишу Panel.SetFocus, но фокус остается на Edit-е. Screen.ActiveControl не меняется.
Если панель и едит стоят на одной форме (любой, хот на чилде, хоть на основной), то связка работает нормально.
Связка Edit-Edit работет нормально, даже если они стоят на разных формах
Что я делаю не так? или это фокусы MDI?

Прикрепляю тестовый пример, где это можно посмотреть.

PS: Разделом ошибся. Модераторы, перекиньте, пожалуйста, в общий раздел.
PPS: Архив поправил

Автор: Akella 14.12.2009, 16:53

Цитата

[DCC Error] MDIFrame.pas(7): F1026 File not found: 'Unit1.dcu'

Автор: RomanEEP 14.12.2009, 16:57

Удали ссылку на юнит1 и все.
Akella, ты видимо под D2010 сидишь. У тебя воспроизводится баг?

Автор: Akella 14.12.2009, 17:33

у мну d2007

Добавлено через 2 минуты и 59 секунд
Для начала приведи в порядок проект, как минимум убери путаницу с именами (name) и подписями (caption) панелей

Добавлено через 4 минуты и 17 секунд
далее, ты пишешь Panel3.SetFocus;

а как визуально ты хочешь увидеть, что Panel3 получила фокус ввода??? Поясни.

Добавлено через 5 минут и 52 секунды
у тебя ваще бред какой-то
procedure TFrameForm.Panel3Click(Sender: TObject);
begin
Panel3.SetFocus;
end;

зачем на щелчок по панели 3 ты вызываешь фокус на саму себя, на панель 3?

Добавлено через 7 минут и 55 секунд
у TEditForm тоже самое

procedure TEditForm.Panel1Click(Sender: TObject);
begin
Panel1.SetFocus;
end;

Автор: RomanEEP 14.12.2009, 18:26

Это тестовый проект, в котором я воспроизвожу ошибку. Если говорить точнее, то вопрос стоит в том как установить фокус на MDI форму (т.е чтобы сообщение о нажатии клавиш приходили на неё) в которой нет элементов управлению вроде Edit, CheckBox итп. У меня есть предположение, что это глюк VCL, потому что нашел следующий workaround:

Код


WinProcs.SetFocus(ChildForm.Handle);

Всем спасибо. Вопрос можно считать решенным.

2 Akella: В идле стоит код, который отображает в капшене главной формы класс активного элемента управления, как видишь, в клике по панелям класс активного контрола остается эдитом, расположенном на главной форме.

ЗЫ: Что самое странное: Если свернуть/развернуть приложение, то фокус, как и положено, разместится на панели в чилд-форме.