Saludos C
Necesito colocar un SHOWMESSAGE donde muestre una direccion web y que el usuario pueda acceder a dicha direccion web con un click.
[RESUELTO] Cómo accerder a una direccion web desde un Showmessage ?
Started by
lsedr
, Jan 20 2011 09:38 AM
7 replies to this topic
#1
Posted 20 January 2011 - 09:38 AM
#2
Posted 20 January 2011 - 09:58 AM
En vez de usar un showmessage usa un MessageDialog.
PD: Debes agregar la unit UrlMon al uses del form.
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.
#3
Posted 20 January 2011 - 11:05 AM
y donde va esto ??
delphi
procedure TForm1.IrAPagina(const Pag: string); begin HLinkNavigateString(NIL, PWideChar(WideString(Pag))); end;
#4
Posted 20 January 2011 - 11:11 AM
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.
#5
Posted 20 January 2011 - 11:20 AM
Puse esto en el boton para ejecutar:
Y esto en Uses:
Y esto en como un procedimiento en Private:
Y me da este error :
que estoy haciendo mal ?
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 ?
#6
Posted 20 January 2011 - 11:25 AM
Creo que te falta impelementar el método, coloca esto en cuaquier parte de la implementación.
Revisa el código del primer post que te puse.
En el botón solo debes poner:
PD: Debes de quitar de la dirección las etiquetas url que se generaron automáticamente.
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.
#7
Posted 20 January 2011 - 08:44 PM
#8
Posted 20 January 2011 - 09:35 PM
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.
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.