Label que simula Link

Question

Estou querendo dar uma modificada nas telas de meus projetos, algu�m conhece algum componente Label que funcione como um hiperlink, que mude de cor qdo. o mouse passar sobre ele e que de prefer�ncia aceite o comando setfocus?

R�mulo Barros · Answer

Para mudar a cor do label, implemente o c�digo abaixo no evento OnMouseMove do Label:

Label.Font.Color := ClRed ;

Agora, para voltar a cor anterior do seu Label, utilize o evento OnMouseMove do formul�rio e implemente:

Label.Font.Color := clBlack;

[b:e336b12baf]Em rela��o a fazer com qu� o Label atue como um link para web, segue:[/b:e336b12baf]

Um procedure para voc� clicar no (label, menu, bot�o...) a automaticamente abrir seu navegador padr�o e carregar a p�gina determinada pelo link.
1� Declare o procedure na se��o PUBLIC da unit.

procedure JumpTo(const aAdress: String);

2� Coloque a cl�usula ShellAPI na uses no in�cio da unit.

procedure TForm1.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := �http://� + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
JumpTo(�www.lloydsoft.hpg.ig.com.br�);
end;

:idea: [u:e336b12baf][color=red:e336b12baf][b:e336b12baf]Obs:[/b:e336b12baf][/color:e336b12baf][/u:e336b12baf] D�vida retirada do programa Deephi

Carval · Answer

valeu, mas dessa forma eu consegui fazer, eu realmente gostaria de um componente que j� possuisse esse comportamento autom�tico e n�o vinculados diretamente ao carregamento de um site, o label teria basicamente o mesmo comportamento de um bot�o, complicado n�???

Gandalf.nho · Answer

V�rios pacotes de componentes como a ProLib tem componente para isso. A JediVCL deve ter tb....

F�rum Label que simula Link #259610