关于类winXP界面问题？？？？？？？？(40分)

现在最新的软件都流行winXP风格，像最新安全之星XP版，它的界面里有的按钮不是常规的按钮，
而是像网页里的文字型超级链接一样，这种效果是怎么做出来的啊！！！哪位大虾知道吗？？？
能教教我吗？？？
万分感谢！！！！

www.51delphi.com
ebar

很酷吗，我下个安全之星来试试看界面效果如何

这种控件早就有啦！
只是没人设计得漂亮而已。
按你所说的应该是ＵＲＬＬＡＢＥＬ控件吧。发挥你的艺术细胞吧，你也能。

不酷啊，那有比较酷的界面的软件的，推荐个站点吧

这种控件可以找出一百个……

unit NetLabel;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,ShellAPI;

type
THyperLink = (hlHTTP,hlMail,hlTelnet,hlGopher,hlNews,hlFTP);

type
TNetLabel = class(TLabel)
private
FHyperLinkKind : THyperLink; //指定超链接的类型
FHyperLink : String;//超链接的目标地址
FHLinkColor : TColor;//鼠标移动到超链接时的颜色
FVLinkColor : TColor; //目标被访问后的颜色

FColor : TColor;//存放颜色值的临时变量

procedure CMMouseEnter(var AMsg : TMessage);message CM_MOUSEENTER;
procedure CMMouseLeave(var AMsg : TMessage);message CM_MOUSELEAVE;
//分别处理鼠标移进、移出的消息
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner : TComponent);Override;

procedure Click;Override;
{ Public declarations }
published
property HyperLinkKind : THyperLink read FHyperLinkKind
Write FHyperLinkKind
default hlMail;
property HyperLink : string read FHyperLink
Write FHyperLink;
property HLinkColor : TColor read FHLinkColor
Write FHLinkColor
default clBlue;
property VLinkColor : TColor read FVLinkColor
Write FVLinkColor
default clNavy;

{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Tsinghua', [TNetLabel]);
end;

procedure TNetLabel.CMMouseEnter(Var AMsg : TMessage);
begin
FColor := Font.Color;
Font.Color := FHLinkColor;
Font.Style := Font.Style + [fsUnderLine];
end;

procedure TNetLabel.CMMouseLeave(Var AMsg : TMessage);
begin
Font.Color := FColor;
Font.Style := Font.Style - [fsUnderLine];
end;

constructor TNetLabel.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FHyperLinkKind := hlHTTP;
FHyperLink := 'www.thtf.com.cn';
FHLinkColor := clBlue;
FVLinkColor := clNavy;

with Self do
begin
Cursor := crHandPoint;
Caption := '清华同方股份有限公司22';
Font.Color := clMaroon;
Font.Name := '宋体';
Font.Size := 9;
FColor := Font.Color;
end;
end;

procedure TNetLabel.Click;
begin
Inherited Click;

if FHyperLink <> '' then
begin
case FHyperLinkKind of
hlHTTP : ShellExecute(Parent.Handle,nil,
PChar('HTTP://'+FHyperLink),
nil,nil,sw_ShowNormal);
hlMail : ShellExecute(Parent.Handle,nil,
PChar('MailTo:'+FHyperLink),
nil,nil,sw_ShowNormal);
hlFTP : ShellExecute(Parent.Handle,nil,
PChar('FTP://'+FHyperLink),
nil,nil,sw_ShowNormal);
hlNews : ShellExecute(Parent.Handle,nil,
PChar('News:'+FHyperLink),
nil,nil,sw_ShowNormal);
hlGopher : ShellExecute(Parent.Handle,nil,
PChar('Gopher://'+FHyperLink),
nil,nil,sw_ShowNormal);
hlTelnet : ShellExecute(Parent.Handle,nil,
PChar('Telnet:'+FHyperLink),
nil,nil,sw_ShowNormal);

end;
end;

FColor := FVLinkColor;
end;


end.

Linux界面的豆油

XP的界面好不好看呀，我看见都不起用XP，还是WIN98的好。

其实软件的界面漂亮不漂亮没有关系，你要软件够儍瓜，功能强大就可以呀。

多数软件都是这样的。

接受答案了.