Acessar arquivo PDF através de um link no Tmemo

[Paulo Henrique de Assis]

Gostaria em saber se tem como eu adicionar uma linha dentro de um memo que servirá como um link para eu abrir um arquivo pdf qualquer! Tipo eu irei reservar a linha 01 e 02 para informação texto e a linha 03 eu preciso informar o caminho de um pdf em minha máquina, com isso se o usuário clicar em cima desta linha, terá que abrir o pdf! Uma coisa que eu queria também é que no momento que eu colocasse o cursor do mouse em cima da linha, que este cursor mudasse para crHandPoint!

Abs pessoal.

[Jhonas]

Imagine que no seu memo tenha as seguintes linhas

Texto1

Texto2

C:\Teste.pdf

uses Shellapi;

procedure TForm1.Memo1Click(Sender: TObject);
var
Pdir: Pchar;
begin
if Memo1.CaretPos.Y = 2 then
begin
GetMem(pDir,256);
StrPCopy(pDir, Memo1.Lines.Strings[2]);
ShellExecute(0, nil, pCHAR(Memo1.Lines.Strings[2]), nil, Pdir, SW_NORMAL);
FreeMem(pdir,256);
end;
end;


procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Memo1.CaretPos.Y = 2 then
begin
Memo1.Cursor := crHandPoint;
sleep(500);
end
else
begin
Memo1.Cursor := crDefault;
sleep(500);
end
end;

OBS: somente quando voce clicar na linha 2 do mouse ( pois a contagem de linhas do memo começa em 0 )

o comando para abrir um arquivo pdf ( o caminho e o nome do arquivo pdf ) é que sera executado.

entretanto como no memo o cursor só muda de posição se voce clicar dentro dele, mesmo que voce use o evento OnMouseMove do memo, não ocorrerá a mudança de cursor .... essa mudaça somente ocorrerá se voce clicar na linha do memo .....

abraço

[Paulo Henrique de Assis]

Bom dia! Realmente só ocorre a mudança do cursor se clicar na linha! mas muito obrigado, pois o seu exemplo já me atendeu!