Transformar string em link

Delphi

24/08/2003

Queria pegar uma URL digitada pelo usuário e transformá-la em link. Alguém poderia me ajudar ?


Glaubergs

Glaubergs

Curtidas 0

Respostas

Demolitor

Demolitor

24/08/2003

faça assim...
Declare o procedure na seção PUBLIC da unit.
procedure JumpTo(const aAdress: String);
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;//http pode ser substituido por mailto
        ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.Edit1OnKeyPress(Sender: TObject);
begin
        If Key = #13 Then //o cara digita e pressiona ENTER
        JumpTo(Edit1.Text);
end;



GOSTEI 0
POSTAR