ShowMessage als Hyperlink

[Frida88]

Hallo zusammen,
habe mir ein kleines Programm geschrieben das nach eingabe einer Nr. mir eine meldung anzeigt
Die Nummer wird mir dann in ShowMessage als komplette Adresse angezeigt.

Hier der Code :

procedure TForm2.Button1Click(Sender: TObject);
var X : Double; x_str: String;x_info: Integer;
begin
x_str:=InputBox('Zahleneingabe','Bitte Ab.Nr. eingeben','') ;
Val(x_str,x,x_info);
if x_info=0 then
begin
ShowMessage('https://C:/kstore/Documents/Versandetiketten/100%20AB0'+x_str+'.pdf');
end;
end;

end.

Nach eingabe einer Nummer kommt dann ein Meldungsfenster mit meiner kompletten Adresse.
Kann ich diese Adresse als Hyperlink anzeigen lassen, so das ich nur noch drauf klicke und die Datei geöffnet wird. ??

Wäre Super dankbar für eure Hilfe.

[DeddyH]

Mit dem einfachen ShowMessage AFAIK nicht, aber Du könntest Dir ein Formular mit einem entsprechenden Label und einem passenden OnClick()-Ereignis selber bauen.

[WIng2005]

du könntest die Message als Dialog starten und Fragen, ob die Datei geöffnet werden soll.

Stichworte:
MessageBox
shellexecute

[Bernhard Geyer]

Ab Vista und/oder mit entsprechenden Kompos (LMD/TMS) kann man sowas u.U. TaskDialog realisieren.

[Frida88]

Hallo Steffen,
kannst du mir sagen wie ich das mit dem Dialog machen kann.
Am besten wäre noch das die Datei gleich startet.

Wäre dir sehr dankbar.

Gruß

[daniel-h]

off topic: füge mal die delphi- tags ein, lässt sich besser lesen.

mfg

[WIng2005]

Hallo

Delphi-Quellcode:

uses shellapi


datei:=//Pfad zur Datei
if application.MessageBox ('Datei ausführen?','Frage', 52)=6 then
try
  shellexecute(form.handle,open,PChar(datei),nil,nil,SW_SHOW);
except
  application.MessageBox ('Datei nicht gefunden','Problem', 16)
end;

shellexecute ist eine Funktion mit Rückgabewert, den man auch anstelle des Try Except-Blocks auswerten könnte... ich mache es immer so.....