Fórum Duvida com a label do rad studio xe2 #415312
11/04/2012
0
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 !!!!
Desde já agradeço !!!!
Pietro Augusto
Curtir tópico
+ 0
Responder
Posts
11/04/2012
Adilson Rumao
Fazer piscar não sei como mas, você já tentou colocar o código no evento OnClick do Label?
Responder
Gostei + 0
12/04/2012
Bruno Leandro
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
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
Responder
Gostei + 0
14/04/2012
Marco Salles
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;
Há outras formas de se fazer 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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)