Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.07.2019, 20: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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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