label link link????

[darkcuevas]

hola amigos de club delphi.

hoy les vengo ha hacer la siguiente pregunta como hacer que un label sea algo así como un botón por ejemplo:

yo que que al hacerle clip a un label abra una pag o ejecute algún código
este codigo abre una pag, muestra mensaje y cierra el programa

const
URL = 'http://www.clubdelphi.com/';
begin
MessageDlg ('MENSAGE......',mtInformation,[mbOk],0);

ShellExecute(Handle,'open',URL,nil,nil,SW_NORMAL);
close;
end;


salu2.

[Casimiro Notevi]

Empezado por darkcuevas

como hacer que un label sea algo así como un botón por ejemplo: yo que que al hacerle clip a un label abra una pag o ejecute algún código

Ponlo en el evento onclick del tlabel.


Y recuerda:




.

[darkcuevas]

gracias no sabia

Código Delphi [-]
const
  URL = 'http://www.clubdelphi.com/';
begin
MessageDlg ('MENSAGE......',mtInformation,[mbOk],0);

  ShellExecute(Handle,'open',URL,nil,nil,SW_NORMAL);
         close;
  end;

ha y gracias por lo del label

[Casimiro Notevi]

Y si le cambias la propiedad Cursor al TLabel por la de crHandPoint entonces te quedará más aparente

[darkcuevas]

Hmm.. ya lo había echo

ok pero otra pregunta que mas o menos tiene que ver con lo mismo

yo quiero que al señalar el label cambie de color supongamos a blanco y cuando movamos el mause cambie a color negro

para eso estoy usando el evento

MouseMove


pero cual seria el código que debería utilizar para cambiar el color ??

[Casimiro Notevi]

Las normas del foro dicen que para preguntas distintas... hilos distintos.
De todas formas, échale un vistazo con tranquilidad a las propiedades del tlabel, ahí encontrarás una que es Font, y dentro de Font está Color... pues ya sabes, esa es la pista que te doy

[darkcuevas]

ok gracias