Fórum Link - www #217579

Caro amigo,

Vc deverá checar na hora do clique no DBText, se o valor do campo tem alguma coisa referente ao protocolo da internet, veja:

procedure DBTextClick...
var
Link:String;
begin
// Faz chamada a um hyperlink
Link := FieldByName(´LINK´).AsString; //Ligado ao DBText
if Pos(´http´, Link) > 0 then
if ShellExecute(Handle, Nil, Pchar(Edtlnk.text), Nil, Nil, SW_SHOW) <= 32 then
ShowMessage(´Não foi possível executar...´);

end;

Espero ter ajudado em sua dúvida!

Daniel Araújo