Como criar links no Delphi 5
14/02/2003
0
Olá galeraaaaaa,
é o seguinte, será que alguem poderia me ajudar, é que preciso criar um link na janela ´About´ ou ´Sobre´ para uma página e um e-mail, se alguem souber de uma maneira simples de criar esses links, seja num label ou qualquer outro componente (até um button serve, mas prefiro um label), onde o usuario poderia clicar e acessar uma página com o Internet Explorer (ou navegador padrão) ou abrir o Outlook para envio de e-mail. Eu uso Delphi 5.
Obrigado a Todos. Tenham um bom final de semana.
é o seguinte, será que alguem poderia me ajudar, é que preciso criar um link na janela ´About´ ou ´Sobre´ para uma página e um e-mail, se alguem souber de uma maneira simples de criar esses links, seja num label ou qualquer outro componente (até um button serve, mas prefiro um label), onde o usuario poderia clicar e acessar uma página com o Internet Explorer (ou navegador padrão) ou abrir o Outlook para envio de e-mail. Eu uso Delphi 5.
Obrigado a Todos. Tenham um bom final de semana.
Jc
Curtir tópico
+ 0
Responder
Posts
14/02/2003
Ajmsistemas
Mano tenta ai
para e-mail
Uses Shellapi
procedure TForm1.Button1Click(Sender: TObject);
var Mail : String;
begin
Mail := ´mailto:ajmsistemas@ieg.com.br´;
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
end;
para Site
1º Declare o procedure na seção PUBLIC da unit.
procedure JumpTo(const aAdress: String);
2º Coloque a cláusula ShellAPI na uses no início da unit.
procedure TForm1.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := ´http://´ + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
JumpTo(´www.ajmsistemas.hpg.ig.com.br´);
end;
qualquer dúvida entre em contato.. Blz...
para e-mail
Uses Shellapi
procedure TForm1.Button1Click(Sender: TObject);
var Mail : String;
begin
Mail := ´mailto:ajmsistemas@ieg.com.br´;
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
end;
para Site
1º Declare o procedure na seção PUBLIC da unit.
procedure JumpTo(const aAdress: String);
2º Coloque a cláusula ShellAPI na uses no início da unit.
procedure TForm1.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := ´http://´ + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
JumpTo(´www.ajmsistemas.hpg.ig.com.br´);
end;
qualquer dúvida entre em contato.. Blz...
Responder
Clique aqui para fazer login e interagir na Comunidade :)