XP Style

[eisbar]

Hallo
ich benutze Delphi 2005, kann mir jemand sagen, wie ich die Buttons, Memofelder etc. im XP Style darstellen lassen kann?

Vielen Dank
Eisbar

[SaFu]

Versuchsmal damit

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;   
begin 
 for i:=0 to ComponentCount-1 do
 if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:= False;
end;

gruss sascha

[MagicAndre1981]

XPManifest-Datei einbinden? :gruebel:

[SaFu]

Uses ....XPMan;

type
TForm1 = class(TForm)
.
.
.
XPManifest1: TXPManifest;

[eisbar]

Was ist ein XP-Manifest?? Wie binde ich das ein?

[Luckie]

Forensuche benutzen: manifest :?

[bitsetter]

Hallo,
aus der Komponentenpalette unter Win32 einfach die Komponente TXPManifest auf die Form setzen! :wink:

[SaFu]

Achso Falls du es bemerkt hast musst du das auf jeder Form.Creat einfügen zur richtigen darstellung.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
var i: integer;    
begin 
for i:=0 to ComponentCount-1 do 
if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:= False; 
end;

sascha

[faux]

Zitat:

Zitat von fuknersascha

Achso Falls du es bemerkt hast musst du das auf jeder Form.Creat einfügen zur richtigen darstellung.

Ich würde jedoch die Manifestlösung bevorzugen; ich sehe keine Vorteile von deinem Code gegenüber der Manifest-Unit.

Grüße
Faux

[jbg]

Zitat:

Zitat von faux

ich sehe keine Vorteile von deinem Code gegenüber der Manifest-Unit.

Der Code bewirkt etwas ganz anderes als die Manifest-Ressource. Die Controls werden durch das bloße Setzen von ParentBackground nicht gethemed.