XP Style für ein Form abschaltbar?

[Lemmy1]

Zitat von Lemmy1:

Ich würd mal sagen, versuch doch lieber die FormAlsBitmap Variante Das Problem ist das der SpeedButton kein "echtes" Windows-Control ist sondern "nur" ein Delphi Control und daher zeichnet sich der SpeedButton selbst. Das jetzt auch noch zu umgehen wäre wahrscheinlich ein recht hoher Aufwand.

Hrm...also hab mal noch ein Bischen rumgehackt...folgendes geht anscheinend wenn Du es ins FormShow reintust (vorher Unit Themes in die Uses rein):

Delphi-Quellcode:

var
  p: ^Boolean;
begin
  p := @(Themes.ThemeServices.ThemesAvailable);
  p^ := False;
end;

Aber da der Code sowas von gehackt würd ich die Finger von lassen Ne im Ernst...was hier passiert ist, dass ThemesAvailable auf False gesetzt wird. Da das aber eine ReadOnly property ist geht das nur mit dem bößen Pointer Umweg. Wenn das Formular geschlossen wird, solltest Du den Wert natürlich wiederherstellen. Use at your own risk