菜鸟问题，如何做点击网址进行网络链接

Question

就是我在程序的关于里弄了一个网址，比如说http://expert.csdn.net/expert/forum.asp
我怎么设置才能让鼠标移动到上面就变色？点击他就会到达这个网址？
刚学DELPHI希望大家帮助，谢谢！

Answer 1

在onclick事件中：
shellexecute(handle,nil,pchar('expert.csdn.net/expert/forum.asp'),nil,nil,sw_shownormal);
在mousemove事件中：
label1.Font.Style:=[fsbold,fsunderline];
label1.Font.Color:=clyellow;

Answer 2

procedure Tfrm_about.Label1Click(Sender: TObject);
begin
ShellExecute(handle, 'open', 'http://www.sina.com',nil, nil, sw_ShowNormal);
end;

Answer 3

对了，在uses中别忘加shellapi单元

Answer 4

对了，在uses中别忘加shellapi单元？？？
在哪里加，怎么加……菜鸟刚学真的还什么都不会

Answer 5

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,shellapi;
         ~~~~~~~~~~type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('expert.csdn.net/expert/forum.asp'),nil,nil,sw_shownormal);end;end.

Answer 6

一个问题讲了这么多晕啊
ShellExecute(0, 'open', 'http:\\pdc.csmud.com',nil, nil, sw_Show);

Answer 7

ShellExecute(Handle,'open','mailto:[email protected]',nil,nil,SW_SHOWNORMAL);
//发邮件
ShellExecute(Handle,'open','http://duan.8u8.com',nil,nil,SW_SHOWNORMAL);
//打开个人主页

Answer 8

use shellapi
=========================ShellExecute(0, 'open', 'http:\\pdc.csmud.com',nil, nil, sw_Show);

Answer 9

呵呵，帮楼上纠正一个手误
uses shellapi
   ～
=========================
ShellExecute(0, 'open', 'http:\\www.csdn.net',nil, nil, sw_Show);

Answer 10

还有一点，可以配合OnMouseMove等事件，改变字体的颜色，做得更像超连接一些。