Olá galera, nesta Quick Tips irei mostrar o componente Gauge (Palheta Sample)

Veja a hierarquia deste componente.

TObject - TPersistent - TComponent - TControl - TGraphicControl - TGauge

Vamos a construção do exemplo :

  Adicione 5 Gauge, altere a propriedade Kind para (gkHorizontalBar, gkNeedle, gkPie, gkText, gkVerticalBar ) e na propriedade BackColor selecione cores diferentes para cada um
  Adicione 1 Memo




Form : Selecione o evento KeyDown e implemente o seguinte código, objetivo é pintar de amarelo, ou qualquer outra cor a célula selecionada.



Memo : Selecione o evento KeyPress e implemente o seguinte código, objetivo é ao digitarmos qualquer coisa no Memo, os Gauges irão progredir.



Fico por aqui e na próxima Quick Tips.

Um abraço

Wesley Y
wyamazack@rwsolution.com.br