showmessage con link

[petete2008]

Quiero sacar un cartel con una frase en html de forma que al hacer click se me abrá el enlace ( en mi caso ese enlace apuntará siempre a una imagen en una ruta de mi disco C y por lo tanto se abrirá el programa de fotos que tenga asociado).

Por ejemplo :
ShowMessage('Haga clic aqui para ver la foto.');

donde 'clic' llevaría el enlace.

¿es posible?
Gracias

[delphi.com.ar]

Si preguntas si existe alguna función que ya haga esto... lo desconozco, posiblemente algun fragmento de código abierto debe haber por ahí... pero lo mas sencillo es crear tu propio diálogo, bien mediante un TForm visualmente o investiga el código de los diálogos de Delphi para hacerlo mediante código.

Saludos!

[Neftali [Germán.Estévez]]

Si se trata de hacerlo en un formulario Delphi, yo a veces lo simulo utilizando un Label. Color azul, subrayado, CursorType (crHandPoint) y programando el OnMouseDown para que ejecute un ShellExecute.

[petete2008]

entonces entiendo que debo abrir un cuadro de dialogo (form) y ahí personalizarlo como yo quiera.
Buscaré información de como abrir una ventana form y luego al cerrar que se libere la memoria utilizada correctamente.
Muchas gracias

[[movorack]]

Primero creas el otro formulario... FormLinkDlg... darle la apariencia que desees y las propiedades necesarias para que se maneje como lo esperas. luego agregas la unidad a los uses y puedes crear una función o manejarlo directamente desde un procedimiento en especifico.

creo que con una función así podria funcionar:

Código Delphi [-]
function LinkDlg(Caption, Text, Link : String) : TModalResult;
  var
    mResult : TModalResult;
    Dialog : TFormLinkDlg;
begin
  Dialog := TFormLinkDlg.Create(Application);
  try
    Dialog.Caption := Caption;
    Dialog.Text := Text;
    Dialog.Link := Link;
    mResult := Dialog.ShowModal;
  finally
    Dialog.Free;
  end;
  Result := mResult;
end;

luego solo seria llamar la funcion

Código Delphi [-]
  LinkDlg("Fotos", "Su foto está cargada", "C:\fotos\foto.jpg");

[delphi.com.ar]

Empezado por movorack

Código Delphi [-]
function LinkDlg(Caption, Text, Link : String) : TModalResult;
  var
    mResult : TModalResult;
    Dialog : TFormLinkDlg;
begin
  Dialog := TFormLinkDlg.Create(Application);
  try
    Dialog.Caption := Caption;
    Dialog.Text := Text;
    Dialog.Link := Link;
    mResult := Dialog.ShowModal;
  except
    Dialog.Free;
  end;
  Result := mResult;
end;

No tendría que ir un except, sino un finally porque en este caso el form solo se liberará si se produce un error.

Saludos!