Подтверждаю, установка любого стиля делает свойство формы AutoScroll бесполезным. Причину этого явления назвать не могу, но могу предложить костыль - процедуру, которая добавляет на форму компонент TScrollBox и переносит на него все другие компоненты формы. TScrollBox в сочетании с темой отображается корректно.
procedure AddScrollBox( AForm:TAForm;);
var
SB:TScrollBox;
i: integer;
begin
SB := TScrollBox.Create(AForm);
SB.Parent := AForm;
SB.Align := alClient;
for i := AForm.controlCount - 1 downto 0 do
begin
if AForm.Controls[i] <> SB then
AForm.Controls[i].Parent := SB;
end;
end;
Вызывать в главной секции приложения для форм, в которых нужно поддерживать AutoScroll = True
begin
AddScrollBox( Form1 );
end.
NickB, вы шокируете своим проектом. Премия за ковид-19 - это бухгалтерия Цитадели Зла? )))
Визуальное программирование:
блог и
телеграм-канал.