Duvida com a label do rad studio xe2

Delphi

11/04/2012

Boa Tarde pessoal, espero que possam me ajudar, desenvolvi um programa no delphi do rad studio xe2, só nao estou conseguindo configurar o label, para que quando o mouse passar por cima dele ele pisque e clicado ele entre em outro form.
Desde já agradeço !!!!
Pietro Augusto

Pietro Augusto

Curtidas 0

Respostas

Adilson Rumao

Adilson Rumao

11/04/2012

Fazer piscar não sei como mas, você já tentou colocar o código no evento OnClick do Label?
GOSTEI 0
Bruno Leandro

Bruno Leandro

11/04/2012

coloca um componente timer com enable = false, e interval = 100, ai no seu label voce coloca no evento onMouseEnter

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Timer.Enabled := True;
end;

no evento onMouseLeave coloque

procedure TForm5.Label1MouseLeave(Sender: TObject);
begin
Timer.Enabled := False;
Label1.Font.Color := clWindowText;
end;

e no timer coloque no evento onTimer


procedure TForm5.TimerTimer(Sender: TObject);
begin
if Label1.Font.Color = clBlue then
Label1.Font.Color := clRed
else
Label1.Font.Color := clBlue;
end;

para clicar nele e abri um form pode ser feito da mesma forma que nos botoes no evento onClick do label
GOSTEI 0
Marco Salles

Marco Salles

11/04/2012

Amigo várias opções para isto

Voce pode aixar na internet labels que são especificos para isto

Talves BlinkLabel ou mesmo PacoteCJV que tem o mesmo possui um Label piscante

eu nunca utilizei ... Tmb facielmente voe pode criar um label Piscante , ou mesmo

utilizar o código abaixo


var
parar:boolean;


var
parar:boolean;

procedure TForm9.Label1MouseEnter(Sender: TObject);
begin
parar:=false;
while not parar  do
 begin
   Tlabel(sender).Visible:= false;
   Application.ProcessMessages;
   Sleep(75);
   TLabel(sender).Visible:=true;
   Application.ProcessMessages;
   Sleep(75);
 end;
end;

procedure TForm9.Label1MouseLeave(Sender: TObject);
begin
parar:=true;
Tlabel(sender).Visible:=true;
end;


Há outras formas de se fazer isto
GOSTEI 0
POSTAR