Buscar por:

Como incrementar a barra de status

Código

{No formulário principal coloque uma statusbar com 3 panels,1 time e aplicationeventos e digite as funções abaixo }

function mostrahora:string;

begin

  mostrahora:=timetostr(time);

end;

function mostradata:string;

var

  dthoje:tdatetime;

  diasemana:integer;

  strdiasemana:string;

begin

  dthoje:=date;

  diasemana:=dayofweek(dthoje);

  case diasemana of

  1:strdiasemana:='Domingo';

  2:strdiasemana:='Segunda-feira';

  3:strdiasemana:='Terça-feira';

  4:strdiasemana:='Quarta-feira';

  5:strdiasemana:='Quinta-feira';

  6:strdiasemana:='Sexta-feira';

  7:strdiasemana:='Sábado';

  end;

  mostradata:=strdiasemana+' '+datetostr(dthoje);

end;

// Selecione o aplicationeventos e na guia eventos do objeto inspector depois clique no evento OnHint e digite o código ->

procedure TFnomedoform.ApplicationEvents1Hint(Sender: TObject);

Begin

  StatusBar1.Panels[2].Text:=Application.Hint;

  // todos os hints do seu projeto apareceram no statusbar

end;

// agora faça com que suas funções apareçam o resultado

procedure TFnomedoform.Timer1Timer(Sender: TObject);

var

  presente:tdatetime;

  ano,mes,dia:word;

begin

  presente:=now;

  decodedate(presente,ano,mes,dia);

  case mes of

  1:STATUSBAR1.PANELS[1].TEXT:=' JANEIRO '+inttostr(ano);

  2:STATUSBAR1.PANELS[1].TEXT:='FEVEREIRO'+inttostr(ano);

  3:STATUSBAR1.PANELS[1].TEXT:='MARÇO '+inttostr(ano);

  4:STATUSBAR1.PANELS[1].TEXT:='ABRIL '+inttostr(ano);

  5:STATUSBAR1.PANELS[1].TEXT:='MAIO '+inttostr(ano);

  6:STATUSBAR1.PANELS[1].TEXT:='JUNHO '+inttostr(ano);

  7:STATUSBAR1.PANELS[1].TEXT:='JULHO '+inttostr(ano);

  8:STATUSBAR1.PANELS[1].TEXT:='AGOSTO '+inttostr(ano);

  9:STATUSBAR1.PANELS[1].TEXT:='SETEMBRO '+inttostr(ano);

  10:STATUSBAR1.PANELS[1].TEXT:='OUTUBRO '+inttostr(ano);

  11:STATUSBAR1.PANELS[1].TEXT:='NOVEMBRO '+inttostr(ano);

  12:STATUSBAR1.PANELS[1].TEXT:='DEZEMBRO '+inttostr(ano);

  end;

  STATUSBAR1.PANELS[0].TEXT:=mostrahora();

  STATUSBAR1.PANELS[1].TEXT:=mostradata();

end;