Neue Erkenntnis:
strate ich den Wizard im OnAfterShow-Ereignis:
Delphi-Quellcode:
procedure TMain.FormShow(Sender: TObject);
begin
PostMessage(
Handle, APM_AFTERSHOW, 0, 0);
end;
procedure TMain.OnAfterShow;
var
R : TRect;
begin
TntStatusBar1.Perform(SB_GETRECT, 0, integer(@R));
ProgressBar1.Parent := TntStatusBar1;
ProgressBar1.BoundsRect := r;
StartUpWzd.ShowModal;
end;
sind die Schaltflächen ungeskinnt, wie im Anhang vom letzten Posting.
Starte ich den Wizard manuell mitten im Programm, sind alle Schaltflächen geskinnt bis auf die "Fertig"-Schaltfläche.