Wie Win-XP-Oberfläche in Delphi7-Anwendung darstellen?

[Sharky]

Zitat von DeddyH:

Binde ein XP-Manifest ein (Komponente XPMan auf dem Reiter Win32).

Hai,

noch eine kleine Anmerkung
Das hinzufügen der Komponente XPMan macht nichts anderes als die Unit XPMan in die Uses-Liste aufzunehmen.
Jetzt ist es aber so das diese Unit dort bleibt wenn die Komponente wieder von der Form entfernt. Ergo -> Das Programm hat solange den XP-Stil wie die Unit XPMan eingebunden ist.

Darum ist es meiner Meinung nach besser ohne die Komponente zu arbeiten und die Unit in der DPR des Projektes einzubinden. Dann kann man sie auch ganz schnell wieder auskommentieren.

Delphi-Quellcode:

program DP_Demo;

uses
//  XPMan,
  Forms,
  U_Main in 'U_Main.pas' {Demo_Form};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDemo_Form, Demo_Form);
  Application.Run;
end.