Autor Beitrag
klabri
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 50



BeitragVerfasst: Fr 26.03.10 15:31 
Hallo,
ich habe eine Interbase-Datenbank,die in einem Feld einen Internet-Link enthält;diesen
Link möchte ich über ein DBGrid aufrufen.
Mit einem Label funktioniert es so
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
Label1.Caption:=DBEdit5.Text;
Label1.Font.Color:=clBlue;
Label1.Font.Style:=[fsUnderline];
Cursor:=crHandPoint;

  ShellExecute(Application.Handle, 'open',
       PChar(DBEdit5.Text ), nilnil,
       SW_ShowNormal);

Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt
Moderiert von user profile iconNarses: Titel erweitert.
Moderiert von user profile iconNarses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Fr 26.03.2010 um 14:58
Nersgatt
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1581
Erhaltene Danke: 279


Delphi 10 Seattle Prof.
BeitragVerfasst: Fr 26.03.10 15:34 
Mit dem DB-Grid gehts es prinzipiell genauso (also der Aufruf mit ShellExecute). Du musst nur den Link aus dem Grid, statt aus dem Label nehmen. Die restlichen Zeilen Deines Quellcodes sind ja nur Design.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)
klabri Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 50



BeitragVerfasst: Fr 26.03.10 15:52 
Ja, ich weiss ja gerade nicht wie ich den Link übernehmen kann.
Eigentlich wollte ich die Internetseit direkt aus dem Grid ausrufen,also Click
auf den Eintrag..
zuma
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 660
Erhaltene Danke: 21

Win XP, Win7, Win 8
D7 Enterprise, Delphi XE, Interbase (5 - XE)
BeitragVerfasst: Fr 26.03.10 16:26 
dazu kannst du das OnCellClick- oder onDblClick- Event des Grids verwenden (z.b anlegen durch Doppelklick auf onDblClick im Objectinspektor). Ich würde allerdings nie auf die Griddaten zugreifen, sondern aus der damit verbundenen Datenmenge die Daten nehmen.
Mal ein kleines Beispiel, um das per Doppelklick zu machen:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure TForm.DBGrid1DblClick(Sender: TObject);
var s : String;
begin
 if Sender is TDBGrid then
 begin
  s := TDBGrid(Sender).Datasource.Dataset.FieldByName('InternetlinkFeld').AsString;
  showmessage(s);
  ShellExecute(Application.Handle, 'open',
        PChar(s), nilnil,
        SW_ShowNormal);
 end;
end;

musst natürlich den Feldnamen 'InternetlinkFeld' auf deinen Feldnamen anpassen.

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!
klabri Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 50



BeitragVerfasst: Fr 26.03.10 19:11 
Danke für die Antwort !! (Bin Anfänger...)