7 respuestas en este tema

[lsedr]

Saludos C

Necesito colocar un SHOWMESSAGE donde muestre una direccion web y que el usuario pueda acceder a dicha direccion web con un click.

[Wilson]

En vez de usar un showmessage usa un MessageDialog.

delphi

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, UrlMon;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure IrAPagina(Const Pag: string);
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  if messageDlg('Desea conectar con lo que quieras', mtConfirmation,
    [mbyes, mbNo], 0) = mrYes then
    IrAPagina('tu direccion')
end;
procedure TForm1.IrAPagina(const Pag: string);
begin
  HLinkNavigateString(NIL, PWideChar(WideString(Pag)));
end;
end.

PD: Debes agregar la unit UrlMon al uses del form.

[lsedr]

y donde va esto ??

delphi

procedure TForm1.IrAPagina(const Pag: string);
begin
  HLinkNavigateString(NIL, PWideChar(WideString(Pag)));
end;

[enecumene]

y donde va esto ??

delphi

procedure TForm1.IrAPagina(const Pag: string);
begin
  HLinkNavigateString(NIL, PWideChar(WideString(Pag)));
end;

Pues mi estimado ese es el procedimiento que realiza el efecto de vínculo dentro del ShowMessage, lo puedes colocar justo despúes del implementation o antes del procedimiento que llamas al Showmessage.

Saludos.

[lsedr]

Puse esto en el boton para ejecutar:

delphi

procedure TForm1.ManualdeProcedimientos1Click(Sender: TObject);
begin
 if messageDlg('Desea descargar el Manual de Procedimientos', mtConfirmation,
    [mbyes, mbNo], 0) = mrYes then
    IrAPagina('[url]http://www.4shared.com/document/QK-xfkoB/Manual_de_procedimientos.html'[/url]);
    HLinkNavigateString(NIL, PWideChar(WideString(Pag)));
end;

Y esto en Uses:

delphi

UrlMon;

Y esto en como un procedimiento en Private:

delphi

procedure IrAPagina(Const Pag: string);

Y me da este error :

delphi

[Error] Pantallaprincipal.pas(327): Undeclared identifier: 'Pag'

que estoy haciendo mal ?

[Wilson]

Creo que te falta impelementar el método, coloca esto en cuaquier parte de la implementación.

delphi

procedure TForm1.IrAPagina(const Pag: string);
begin
  HLinkNavigateString(NIL, PWideChar(WideString(Pag)));
end;

Revisa el código del primer post que te puse.

En el botón solo debes poner:

delphi

procedure TForm1.ManualdeProcedimientos1Click(Sender: TObject);
begin
 if messageDlg('Desea descargar el Manual de Procedimientos', mtConfirmation,
    [mbyes, mbNo], 0) = mrYes then
    IrAPagina('[url]http://www.4shared.com/document/QKxfkoB/Manual_de_procedimientos.html'[/url]);
end;

PD: Debes de quitar de la dirección las etiquetas url que se generaron automáticamente.

[egostar]

Hola

Puedes mirar el código que desarrolló el compañero Federico Firenze  en ClubDelphi.

Salud OS

[Rolphy Reyes]

Saludos.

Por lo regular (no es una regla) se suele poner la dirección de la página o el contacto del correo electrónico en el formulario About osea Acerca de.