RES: Button or text invokes browser or email program?

Label1.Font.Style := [fsUnderline];
Label1.Font.Color := clBlue;
Label1.Caption := '[email protected]';
Label1.OnClick := Label1click;

Label2.Font.Style := [fsUnderline];
Label2.Font.Color := clBlue;
Label2.Caption := 'http://www.facilinformatica.com.br';
Label2.OnClick := Label2click;

procedure Label1Click ( Sender : Tobject );
begin
    // u have to declare shellapi
    ShellExecute ( 0, 'open', Pchar ( 'mailto:' + Label1.Caption ), nil,
nil, SW_SHOW );
end;

procedure Label2Click ( Sender : Tobject );
begin
    // u have to declare shellapi
    ShellExecute ( 0, 'open', Pchar ( Label2.Caption ), nil, nil, SW_SHOW );
end;

// best regards,
// Felipe
  -----Mensagem original-----
  De: W. D. [mailto:[email protected]]
  Enviada em: sexta-feira, 1 de agosto de 2003 03:59
  Para: [email protected]
  Assunto: [Delphi] Button or text invokes browser or email program?


  Hi,

  Getting back into Delphi.  Have version 6.

  How do a make a some text, or button, or any object "clickable"--
  meaning that it will invoke the default Internet browser or default
  email program as appropriate?

  Couldn't find it in the help file, or Google or Google groups.  This
  can't be that complicated can it?

  Thanks for any light you can shed!


        Yahoo! Groups Sponsor
              ADVERTISEMENT




  CodeCoffer - new Delphi code protection Tool!
  http://www.delphicollection.com/public/CodeCoffer.htm
  ---------------------------------------------------------------
  Unsubscribe:[email protected]
  List owner:[email protected]
  ---------------------------------------------------------------

  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.


[Non-text portions of this message have been removed]



------------------------ Yahoo! Groups Sponsor ---------------------~-->
Free shipping on all inkjet cartridge & refill kit orders to US & Canada. Low prices up to 80% off. We have your brand: HP, Epson, Lexmark & more.
http://www.c1tracking.com/l.asp?cid=5510
http://us.click.yahoo.com/GHXcIA/n.WGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->

CodeCoffer - new Delphi code protection Tool!
http://www.delphicollection.com/public/CodeCoffer.htm
---------------------------------------------------------------
Unsubscribe:[email protected]
List owner:[email protected]
--------------------------------------------------------------- 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/