Link - www
Como faço para criar um link para abrir uma página da internet no onclick de um DBText ???
CBier
CBier
Cbier
Curtidas 0
Respostas
Cdaraujo
01/03/2004
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
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
Como faço para criar um link para abrir uma página da internet no onclick de um DBText ???
CBier
GOSTEI 0