超链接怎么做，求救！(50分)

M

muzilg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #1

我想做buttton按纽，按下时打开某个网站，请问怎么做？？？

谢了

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #2

ShellExecute(handle,nil,pchar('http://www.delphibbs.com'),nil,nil,sw_ShowNormal);
//'mailto:xxx@abc.com'
前面引用ShellAPI

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #3

uses shellapi;
shellexecute(handle,nil,Pchar('某个网站'),nil,nil,sw_shownormal)

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #4

ShellExecute(FrmAbout.Handle,'open',PChar('http://www.sina.com.cn'),'','',SW_SHOWNORMAL);

 

近

近来好难

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #5

首先，你应该在前面uses 中加入：shellapi
然后，按扭代码如下：
procedure TForm1.N23Click(Sender: TObject);
begin
shellexecute(handle,nil,Pchar('http://www.zz.ha.cn'),nil,nil,sw_shownormal);
end;
如果你想给你加入的是email地址，则如下：
procedure TForm1.Email1Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('mailto:muzilg@tom.com'),nil,nil,sw_ShowNormal);
end;
不行的话给我联系。

 

M

muzilg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #6

多人接受答案了。