谁能提供XP风格的DELPHI控件，最好有源码，谢了

Question

XP风格窗体 到我的网站上去下载吧www.pigtwo.com

Answer 1

http://mydelphi.8u8.com/kj.htm上有很多，不过好像没有源程序。

Answer 2

SkinEngine in www.51delphi.com

Answer 3

看一下Delphi7的说明文件，有详细说明如何生成XP风格的程序，
可用于任何版本的Delphi，匆须使用第三方控件。

Answer 4

按Delphi7的说明文件试了一下，还是不行？
我建立一个Project1，
建立一个Project1.exe.manifest文件其内容为Delphi7的说明文件中，两者在同一个目录下，但还是不行？？？

Answer 5

Delphi7附有一个资源文件“WindowsXP.res”,
复制到你的Delphi的Lib目录中，
在DPR中加一行
{$R WindowsXP.res}。

Answer 6

XIXI，那个是要在XP运行时才有XP效果的。
好像用Macos风格可以做到。你去看看Master Delphi6
============================
@* .☆ / ＊/　.　/ * . ☆/ ＊。
   ◢◣。       ◢◣。
  ◢★◣。     ◢★◣。
 ◢■■◣。   ◢■■◣。
◢■■■◣。 ◢■■■◣。
︸︸||︸︸ !!︸︸||︸︸
愿您有快乐的每一天 ^_^!!

Answer 7

unit XPButton;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  fcButton, fcImgBtn, fcText, ExtCtrls;type
  TXPButton = class(TfcImageBtn)
  private
    { Private declarations }
    FDown: TBitmap;
    FFocus: TBitmap;
    FDisable: TBitmap;
    FNormal: TBitmap;
    FOver: TBitmap;
    procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
    procedure CMExit(var Message: TCMExit); message CM_EXIT;
    procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
  end;procedure Register;implementation{$R BtnFace.res}procedure Register;
begin
  RegisterComponents('XP', [TXPButton]);
end;{ TXPButton }procedure TXPButton.CMEnter(var Message: TCMEnter);
begin
  inherited;
  Image.LoadFromBitmap(FFocus);
end;procedure TXPButton.CMExit(var Message: TCMExit);
begin
  inherited;
  Image.LoadFromBitmap(FNormal);
end;procedure TXPButton.CMEnabledChanged(var Message: TMessage);
begin
  inherited;
  if Enabled then
  begin
    if Focused then
      Image.LoadFromBitmap(FFocus)
    else
      Image.LoadFromBitmap(FNormal);
    TextOptions.Style := fclsRaised;
  end
  else
  begin
    Image.LoadFromBitmap(FDisable);
    TextOptions.Style := fclsDefault;
  end;
  Invalidate;
end;procedure TXPButton.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  Image.LoadFromBitmap(FOver);
end;procedure TXPButton.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  if Focused then
    Image.LoadFromBitmap(FFocus)
  else
    Image.LoadFromBitmap(FNormal);
end;constructor TXPButton.Create(AOwner: TComponent);
begin
  inherited;  Width:= 73;
  Height:= 21;
  Options:= [boFocusable];
  SmoothFont:= True;
  TabStop:= True;
  TextOptions.ShadeColor := clSilver;
  TextOptions.Style := fclsRaised;  FDown:= TBitmap.Create;
  FDown.LoadFromResourceName(HInstance, 'DOWN');
  FFocus:= TBitmap.Create;
  FFocus.LoadFromResourceName(HInstance, 'FOCUS');
  FDisable:= TBitmap.Create;
  FDisable.LoadFromResourceName(HInstance, 'DISABLE');
  FNormal:= TBitmap.Create;
  FNormal.LoadFromResourceName(HInstance, 'NORMAL');
  FOver:= TBitmap.Create;
  FOver.LoadFromResourceName(HInstance, 'OVER');  Image.LoadFromBitmap(FNormal);
  ImageDown.LoadFromBitmap(FDown);
end;destructor TXPButton.Destroy;
begin
  inherited;
  FDown.Free;
  FFocus.Free;
  FDisable.Free;
  FNormal.Free;
  FOver.Free;
end;end.

Answer 8

上面是XPBUTTON的源代码，我还有XPMENU的，想要吗？

Answer 9

http://www.ksdev.com
ThemeEngine 3.1.3
SkinEngine 3.1.4