dbgrid问题!(100分)

Z

zhblc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #1

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage(column.Field.AsString);
end;
可以显示点击行每列的信息,但我想得到的是点击行只显示其中一列的信息.
另外,我想把这一信息(http://www.sohu.com之类的信息)传给XXX后可以访问ITERNET.
告诉我好吗?全部的分给你.!!

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #2

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if column.标题=那一列名 then
showmessage(column.Field.AsString);
end;

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #3

我想把这一信息(http://www.sohu.com之类的信息)传给XXX后可以访问ITERNET.
什么意思？

 

Z

zhblc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #4

其实我是想点Dbgrid中的(http://www....)就可以上网.知道了吗?谢谢你的答复!告诉我
好吗?

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #5

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if column.标题=那一列名 then
shellexexute()
//有四个参数你查一下winsdk那个帮助把数据库的字段值传给它就行了，
end;

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #6

用这个吧
command:=
'c:/boot.ini'
'mailto:yysun@263.net'
'http://www.gislab.ecnu.edu.cn'
....
通吃！

Shellexecute(handle,nil,pchar(Command),nil,nil,sw_shownormal);
command的信息用你点击的字段值代替就行了.

 

Z

zhblc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #7

if column.标题=那一列名 then中的标题是指什么啊

 

I

immd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #8

不会写if column.FieldName='字段名' then
.....

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #9

設這個網址的字段名為udl.
uses shellapi;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if column.Field.FieldName='udl' then
shellexecute(handle,nil,pchar(column.Field.asstring),nil,nil,sw_show);
end;

 

Z

zhblc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #10

谢谢你们,我会更加努力的!特别感谢dhl2001!很热情回答问题!!!!

 

Z

zhblc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #11

接受答案