請問... 怎麼將在DBGIRD的東西連上網呢~ 有網址在DBGIRD裡面~ 但是我想將它執行時~ 按一下網址~ 就可以連上去了~^^ < >< >

uses ShellApi;
  
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.Field.Name = 'address' then
    ShellExecute(0, 'open', PChar(Column.Field.AsString), nil, nil, SW_SHOW);
end;

--- --<-<-<@

程式好像有錯~ 不能用耶~ 我是將dbgird的東西連資料庫~ 試了又試還是不行~ 顯示在dbgird裡面的東西~ 有很多行~ 如果我要讓裡面的東西按到網址才連~ 有辦法嗎~ >"<

1.首先在 TDBGrid 元件點兩下, 出現 Columns Editor 後   按右鍵, 選 Add All Fields 2.OnCellClick 事件程式改寫如下試試:

uses ShellApi;
  
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.Field.FieldName = 'address' then
    ShellExecute(0, 'open', PChar(Column.Field.AsString), nil, nil, SW_SHOW);
end;

--- --<-<-<@

Uses Shellapi; MOUSE快點二下網址欄位中資料即可連結網址 procedure TAddressURLForm.DBGrid1DblClick(Sender: TObject); begin ShellExecute (Handle, 'open', PChar (ADOQuery1.FieldByName('網址').asstring), '', '', sw_ShowNormal); end;

to banson1716~ 請問~ 不太懂你寫的內容耶~ 是在dbgird下貼上你寫的程式~ 還是？？？ 發表人 - bluesup0505 於 2003/08/05 09:40:34

to版主~ 在程式執行時~ uses是否應更改~ 因為執行時~ 有出錯~

這位同學, 您每次都說出錯 但也不把錯誤內容描述出來 這樣大家怎麼會知道到底出了什麼錯呢？ --- --<-<-<@

不好意思喔~ 我是初學者~ 所以很多地方不懂~ 我應該把uses Shellapi;放在那？那shellapi是啥意思呢~ 我放在任何地方都出錯~ PChar(Column.Field.AsString), nil, nil, SW_SHOW這行又是啥意思呢~ 可不可以解釋給我聽~ 我應該有要更改內容吧~..... 發表人 - bluesup0505 於 2003/08/06 16:05:40

1.找看程式單元內最前面幾行有個 uses 的地方, 接著放在最後面就好了 2.ShellApi 是個單元(unit)的名稱 3.PChar(Column.Field.AsString), nil, nil, SW_SHOW 這些是指 ShellExecute 這個 API 所使用的參數 4.您要更改的是 Column.Field.FieldName = 'address' 中的 address 值 看您要 click 的那個欄位的名稱為何 5.買本書來 K 吧! --- --<-<-<@

那Uses Shellapi;的後面是接著放剩下的程式嗎~ 還是在OnCellClick下~ 放上Shellapi後，執行時出現錯誤~ 這是原本就有的程式了 但是在windows就出錯了~ 我想我會不會把剩下的程式放錯地方了~ 謝謝你喔~ 這麼有耐心回答我的問題~ ^^

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellApi;    type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.Field.FieldName = 'address' then
    ShellExecute(0, 'open', PChar(Column.Field.AsString), nil, nil, SW_SHOW);
end;

end.

--- --<-<-<@

謝謝你喔~已經可以連上網了~^^ 不過~出現一個問題~ 因為dbgird裡面有很多的網址~ 按了一個進去~在按另一個會覆蓋過去~~ 這樣就不能同時瀏覽了~ 有什麼方法嗎~

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.Field.FieldName = 'address' then
    Shellexecute(Handle, 'open', 'explorer.exe', PChar(Column.Field.AsString), nil, SW_SHOW);
end;

--- --<-<-<@

hagar..的方法，適合用於「IE瀏覽器」。    網海無涯，學無止境! 發表人 - qoo1234 於 2003/08/16 23:35:40

參考: http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_12018259.html    --- 歡迎光臨 KTop 研究院--<-<-<@

開 ie 新視窗另一種方法:

uses UrlMon;    procedure TForm1.btnGoogleClick(Sender: TObject);
var sURL: string;
begin
  sURL := 'http://www.google.com';
  HlinkNavigateString(nil, PWideChar(WideString(sURL)));
end;

--- 歡迎光臨 KTop 研究院--<-<-<@