COMO CRIAR UM LEMBRETE NA STATUSBAR ?
GOSTARIA DE CRIAR UM LEMBRETE QUE FIQUE PISCANDO SE DETERMINADA CONDIÇÃO FOR VERDADEIRA. EXE:
SE HOJE TENHO CHEQUES PREDATADOS QUE VÃO SER DEPOSITADOS ENTÃO, NA STATUSBAR APARECE (VERIFICAR VENCIMENTOS) PISCANDO.
SERA QUE TENHO QUE USAR UM OBJETO TIME?
OBRIGADO PELA AJUDA.
:lol:
SE HOJE TENHO CHEQUES PREDATADOS QUE VÃO SER DEPOSITADOS ENTÃO, NA STATUSBAR APARECE (VERIFICAR VENCIMENTOS) PISCANDO.
SERA QUE TENHO QUE USAR UM OBJETO TIME?
OBRIGADO PELA AJUDA.
:lol:
Anonymous
Curtidas 0
Respostas
Okama
28/02/2003
Com certeza:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if StatusBar1.Panels[0].Text = ´´ then
StatusBar1.Panels[0].Text := VAR_MENSAGEM
else
StatusBar1.Panels[0].Text := ´´;
end;
VAR_MENSAGEM é uma variável global tipo String ou qualquer outra coisa.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if StatusBar1.Panels[0].Text = ´´ then
StatusBar1.Panels[0].Text := VAR_MENSAGEM
else
StatusBar1.Panels[0].Text := ´´;
end;
VAR_MENSAGEM é uma variável global tipo String ou qualquer outra coisa.
GOSTEI 0
Castilho
28/02/2003
Na statusbar admito não saber fazer mas é muito fácil com TLabel!
coloque um componente Ttimer e aplique o código no time:
Timer1.Interval := 500;
Label1.Visible := not Label1.visible;
tente no na status mas nunca testei.
um abraço. espero ter ajudado...
jaircastilho@terra.com.br
coloque um componente Ttimer e aplique o código no time:
Timer1.Interval := 500;
Label1.Visible := not Label1.visible;
tente no na status mas nunca testei.
um abraço. espero ter ajudado...
jaircastilho@terra.com.br
GOSTEI 0