procedure TForm6.GrilleCellClick(Column: TColumn);beginShellExecute(GetDesktopWindow, 'open', 'PChar(http://monsite.com/'+Grille.Columns[0].Field.Value+'.JPG)', nil, nil, SW_SHOWNORMAL);end;
Incompatible types : 'Variant' and 'PAnsiChar'
procedure TForm6.GrilleCellClick(Column: TColumn); begin ShellExecute(GetDesktopWindow, 'open', PChar('http://monsite.com/' + string(Grille.Columns[0].Field.Value) + '.JPG'), nil, nil, SW_SHOWNORMAL); end;