Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 28.07.2019, 21:32   #1
AlexDX4
Новичок
Джуниор
 
Регистрация: 28.07.2019
Сообщений: 1
По умолчанию TCategoryPanelGroup: Саморазворачивание панели CategoryPanel при разворачивании окна формы во весь экран

Столкнулся с такой проблемой (Delphi XE4).
На форме размещена группа свёрнутых панелей TCategoryPanel.
При разворачивании окна формы во весь экран (двойным кликом по заголовку формы) раскрывается одна из панелей.
Заголовок этой панели после разворачивания окна располагается точно на месте заголовка окна до разворачивания.
Получается, окно развернулось (заголовок прижался кверху, группа панелей сместилась вверх) и после этого TCategoryPanelGroup обрабатывает двойной клик по устаревшим координатам.
При разворачивании окна по системной кнопке проблемы нет.

Пытался отловить двойной клик по заголовку окна, деактивировать группу и активировать позже при onPaint формы - не помогло.

Код:
private
procedure WMNCLBUTTONDBLCLK(var Msg: TMessage); message WM_NCLBUTTONDBLCLK;
...
procedure TForm.WMNCLBUTTONDBLCLK(var Msg: TMessage);
begin
  if Msg.wParam = HTCAPTION then
    if Self.WindowState = wsNormal then    
      CategoryPanelGroup.Enabled:= false;
  inherited;
end;

procedure TForm.FormPaint(Sender: TObject);
begin
      CategoryPanelGroup.Enabled:= true;
end;
AlexDX4 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Формы в режиме Конструктор на весь экран tumanovalex Microsoft Office Access 0 04.12.2016 13:00
Открытие формы автоматически на весь экран ttsergeitt Microsoft Office Access 0 25.03.2015 08:40
WPF окна. Стиль None. Растянуть на весь экран. Проблемы с этим. Casper-SC WPF, UWP, WinRT, XAML 3 22.08.2010 12:27
как запретить раскрытия формы на весь экран? designer999 Общие вопросы Delphi 10 18.02.2010 17:07
Во весь экран!!! Orodret Общие вопросы C/C++ 2 01.05.2009 17:58