Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Разное поведение в win7 и win10  [new]
LiYing
Member

Откуда:
Сообщений: 525
Delphi 10.2.3, на форме панель, на которой размещены еще 3 панели с эдитами + простейший код в OnEnter/OnExit каждой:
procedure TForm1.pnlFilterEnter(Sender: TObject);
begin
  (Sender as TPanel).Color := clWebLightYellow;
end;

procedure TForm1.pnlFilterExit(Sender: TObject);
begin
  (Sender as TPanel).Color := clBtnFace;
end;

В win7 все работает как и ожидается, а в win10 цвет меняется только у 1-й панели. Все видно на скрине:
Картинка с другого сайта.
Картинка с другого сайта.

В чем причина? Голову уже сломал......
Исходники в прицепе.

К сообщению приложен файл (test_panel_color.zip - 1Kb) cкачать
16 сен 19, 10:28    [21971386]     Ответить | Цитировать Сообщить модератору
 Re: Разное поведение в win7 и win10  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 3806
LiYing,

Выстави у всех панелей ParentBackground := False;
16 сен 19, 10:55    [21971401]     Ответить | Цитировать Сообщить модератору
 Re: Разное поведение в win7 и win10  [new]
LiYing
Member

Откуда:
Сообщений: 525
Kazantsev Alexey
LiYing,

Выстави у всех панелей ParentBackground := False;

Черт! Помогло, спасибо!
16 сен 19, 11:03    [21971408]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить