一个奇怪的问题,大家帮我看一看,???
在delphi7要实现XP效果的方式,简单省心的大致有以下三种:(当然用第三方控件除外)
1、就是将WIN32下的XPMainFest放入界面中,即会产生XP效果代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, StdCtrls, Buttons;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest; //这里表示已加了此控件
BitBtn1: TBitBtn;
Button1: TButton;
private { Private declarations }
public { Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
2、第二种就是在uses里加上XPman从而调用C:\Program Files\Borland\Delphi7\Lib\XPman.dcu实现XP效果,代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, StdCtrls, Buttons;//在USES中加上了XPMan
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
Button1: TButton;
private { Private declarations }
public { Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
3、第三种方法即是将windowsXP.res编译到程序中实现XP效果,即在代码中加入{$R WindowsXP.res}这样就可以将C:\Program Files\Borland\Delphi7\Lib\windowsXP.res文件编译到程序中,代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
Button1: TButton;
private { Private declarations }
public { Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{$R WindowsXP.res} //在这里加上{$R WindowsXP.res}
end.
按理讲这样程序编译运行之后,我放在界面上的bitbtn和button两个控件就会显示XP效果了,但是不知怎么的,我怎样的弄还是不能显示,我的themes是启动的,不知那那位高手能否指点一二,这倒底是什么了,为何别人一加上去就行,我就不行,急!!!!
[解决办法]
up
[解决办法]
按你说的我进行了测试,结果我磁到的问题跟你一模一样!!希望你先解决了详细说明一下.
[解决办法]
我现在用的操作系统是w2003s
下面的说的是我帮你从网络里抄来的:
这个组件放上去以后,如果操作系统是xp得话,系统会自动找到xp得资源,就是说你的界面会变成xp样式的,不仅仅是你的窗体,包括你的button,combobox………………
不过有个bug,就是你的combobox对中文的支持很差,不信写两个中文,然后按推格键就知道了
[解决办法]
楼主我想你的操作系统一定不是Winxp,人家的哪个控件是针对XP写的.
[解决办法]
pass:
主以上三方法我都全部通。我的系是WinXP+D7