Ich habe z.Z. das selbe Problem.
Mit folgendem Code werden mir zwar die Komponenten alle angezeigt, allerdings verlieren einige Komponenten dann ihren 3D-Look (bisher beobachtet bei: TRichEdit, TEdit, TMemo, TTreeView, TListBox und TProgressBar):
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
i : Integer;
begin
AnimateWindow(
Handle, 250, AW_BLEND
or AW_ACTIVATE);
for i := 0
to ComponentCount-1
do
if (Components[i]
is TControl)
then
(Components[i]
as TControl).Repaint;
end;
So soll's aussehen:
http://www.myrasmussen.de/bilder/richtig.png
Und so sieht es aus:
http://www.myrasmussen.de/bilder/falsch.png
Den 3D-Look bekommen die Komponenten dann erst, wenn sie vom System her aufgefordert werden sich neu zu zeichnen (weil sie z.B. verdeckt waren)
Hat jemand eine Idee?