Dicas - Hint na StatusBar

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja a dica de como mostrar o hint de um Button na StatusBar.

Como mostrar o hint de um Button na StatusBar

 

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;

 

No formulário coloque: um Timer, um Application Events e uma StatusBar adicionando 3 Panels. Clique no Application Events, no evento OnHint digite o código abaixo:

 

procedure TFprincipal.ApplicationEvents1Hint(Sender: TObject);

begin

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

end;

 

Logo depois: Selecione no timer dê 2 cliques e digite o código abaixo:

 

procedure TFprincipal.Timer1Timer(Sender: TObject);

begin

  StatusBar1.Panels[0].Text := mostrahora();

  StatusBar1.Panels[1].Text := mostradata();

end;

 

Para testar coloque um botão e digite qualquer hint para ele, daí e só compilar e testar passando o mouse em cima do botão.

 

Samuel Santos

samuelsantos@mgconecta.com.br

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?