Crash beim VCL Stil Wechsel zur Laufzeit

[mytbo]

Zitat von TurboMagic:

Was nun?

Delphi-Quellcode:

const
  WM_FORMSTYLECHANGED = WM_USER + 779;

  Tf_SelectStyle = class(TForm)
  private
    procedure WMFormStyleChanged(var pmvMessage: TMessage);
      message WM_FORMSTYLECHANGED;

procedure Tf_SelectStyle.WMFormStyleChanged(var pmvMessage: TMessage);
begin
  StyleName := lb_Styles.Items[pmvMessage.LParam];
end;

procedure Tf_SelectStyle.lb_StylesClick(Sender: TObject);
begin
  PostMessage(Handle, WM_FORMSTYLECHANGED, 0, lb_Styles.ItemIndex);
end;

Sehen aufgestylte Oberflächen alle so gewöhnungsbedürftig aus? Da bleibe ich lieber bei der Windows Klötzchen-Optik.

Bis bald...
Thomas