Ir ao conteúdo

Link de Email em um form do delphi


wiltave

Posts recomendados

Postado

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

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!