Das war die klassische AboutBox (C:\Programme\Borland\Delphi7\Objrepos\about.pas) da hab ich nichts geändert....
Der Code
Delphi-Quellcode:
uses
..., UxTheme;
procedure TForm1.FormCreate(Sender: TObject);
var
s: integer;
begin
for s := 0 to ControlCount-1 do begin
if Controls[s] is TWinControl then begin
SetWindowTheme((ControlsF[s] as TWinControl).Handle, '', '');
end;
end;
Funktioniert zwar für die Komponten aber nicht für die Form...