Ver Mensaje Individual
  #3  
Antiguo 07-06-2005
Avatar de Crandel
[Crandel] Crandel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Parana, Argentina
Posts: 1.475
Reputación: 23
Crandel Va por buen camino
Lo que te respondió Marcos es lo que preguntas.

Pero también te puede interesar, realizar un efecto al estilo pagina web, de remarcar un label al pasar el mouse sobre él y al salir vuelva al color normal

Código Delphi [-]
procedure TFormAcercaDe.LabelMailMouseEnter(Sender: TObject);
begin
  with Sender as TLabel do
  begin
   Cursor := crHandPoint;
   Font.Style := [fsUnderline, fsBold];
   Font.Color := clBlue;
  end;
end;

procedure TFormAcercaDe.LabelMailMouseLeave(Sender: TObject);
begin
  with Sender as TLabel do
  begin
    Cursor := crDefault;
    Font.Style := [fsBold];
    Font.Color := clSilver;
  end;
end;
__________________
[Crandel]
Responder Con Cita