Discussion :

[stefaneemma]

bonjour à tous
je voudrais s'il vous plaît savoir comment créer un lien hypertexte dans une cellule d'un dbgrid . c'est à dire qu'au clic sur l'adresse contenu dans une cellule ,elle nous ouvre le fichier en question
merci d'avance

[SergioMaster]

Bonjour,

Rapidement, (avant de reprendre le boulot)
en gérant le clic (oncellClick ) ou le DblClick (onDblClick)
et avec un ShellExecute

en supposant que ce soit un fichier d'extension connue (txt,pdf,bmp,jpg .....)
que le dbgrid soit lié a matable et que le champ se nomme mondocument (contenant le chemin complet du fichier a visualiser)

il faudra certainement déclarer ShellAPI dans les uses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure Tform1.DBGrid1CellClick(Column: TColumn)
begin
if UpperCase(Column.Field.FieldName)='MONDOCUMENT' then  
ShellExecute(Self.Handle, 'Open',PChar(matable.fieldbyname('mondocument').asString), '', '', SW_SHOW);
end;

[ShaiLeTroll]

Il suffit de fournir une fonction OnDrawColumnCell
Tu dessine le texte en bleu souligné
le OnCellClick te permettra de lancer le ShellExecute vers l' URL http correspondante
Pour el changement de Curseur, utiliser MouseCoord durant un OnMouseMove pour passer en curseur Hand...

Tu peux aussi utiliser aussi un ButtonStyle cbsEllipsis pour avoir un bouton

La FAQ : Comment formater l'affichage d'un champ dans un TDBGrid ?