Ir para conteúdo
Fórum Script Brasil
  • 0

Acessar arquivo PDF através de um link no Tmemo


Paulo Henrique de Assis

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...