Link de Email em um form do delphi

[wiltave]

Olá...

como fazer um Link de Email usandu um label em um form do delphi?

valeu!

[Tarcísio Rosa]

Olá...

como fazer um Link de Email usandu um label em um form do delphi?

valeu!

Caro wiltave

Acho que o que você precisa é de um procedimento como o seguinte:

procedure TForm1.Label1Click(Sender: TObject);

begin

If (Sender is TLabel) then

with (Sender as Tlabel) do

ShellExecute(Application.Handle,

PChar('open'),

PChar(Hint),

PChar(0),

nil,

SW_NORMAL);

end;

Na propriedade "Hint" do label (nesse caso o label 1) coloque a URL ou e-mail que você desejar.

_______________________________________________________________________________________

Insira no delphi um label com nome label1, em seguida copie, cole e rode esse exemplo abaixo:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, SHELLAPI;

type

TForm1 = class(TForm)

Label1: TLabel;

procedure Label1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);

begin

If (Sender is TLabel) then

with (Sender as Tlabel) do

ShellExecute(Application.Handle,

PChar('open'),

PChar(Hint),

PChar(0),

nil,

SW_NORMAL);

end;

end.

Para ficar melhor faça alterações para que o label mude ao passar o mouse por cima (o label fique negrito, mude de cor... por aí.)

Espero ter ajudado

falou, t+

Fonte: http://delphi.about.com/od/vclusing/l/aa112498.htm