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