如何实现热点功能(50分)

陈

陈冲伟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-06

• #1

我想在程序中实现这样一种功能:
一个对话框显示出来后,对话框中有一个EMail地址,如ccw@ccnt,(并且在地
址下有下划线)在鼠标移到这个地址上时,鼠标形状会变成一只手,点击一下后,
程序会把系统默认的邮件程序调出.
为减小执行程序的大小,我想尽量避免用控件来做.请问各位有什么好的方
法来实现这种功能.

 

C

chenke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-06

• #2

到cpp的竹叶上去找，

 

陈

陈冲伟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-06

• #3

cpp的主页在哪里呢?

 

D

delphi fan2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-06

• #4

在Label的光标换成"手"
label.onclick调用shellExecute;

 

L

liwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-06

• #5

加一个LABEL,
然后设
LABEL.CURSOR=CBHAND;

在ON CLICK中写上:
shellexec(handle, 'open','mailto:ccw@ccw.net',nil,nil,sw_shownormal);

搞定.

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-07

• #6

As easy as 123:
1. 在你的AboutBox放上一个TLabel--Label1, Caption:='作者: 陈冲伟';
2. Label1的设置如下:
Font.Color:=clNavy;
Font.Style:=Font.Style+[fsUnderLine];
Label1.Cursor:=csHandPoint;
3. Label1.OnClick事件如下:
procedure TAboutBox.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,'open','mailto:ccw@ccnet',nil,nil,SW_SHOW);
end;

注: 使用ShellExecute还可以直接指向某一个WWW网页

 

P

pegasus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-07

• #7

这好象也是一个经典问题，被反复问过很多次,

 

Z

zph

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-07

• #8

来晚了一步,被huizhang抢了先
chat* sigh
chat* admire huizhang

 

陈

陈冲伟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-02-08

• #9

多谢各位，我接受答案了。