Bei Control.Hide verwaist die Scrollbar wenn VCL-Styles aktiv

[Codehunter]

Ich habe die Lösung gerade selber gefunden bzw. eher ein Workaround:

Delphi-Quellcode:

var
  MyListBox: TListBox;

TForm1.Create(Sender: TObject);
begin
  MyListBox:= TListBox.Create(Self);
  MyListBox.Parent:= Self;
end;

TForm1.Button1Click(Sender: TObject);
begin
  MyListBox.StyleElements:= [seFont, seClient, seBorder];
  MyListBox.Show;
end;

TForm1.Button2Click(Sender: TObject);
begin
  MyListBox.StyleElements:= [];
  MyListBox.Hide; 
end;