preenchimento de combobox

Delphi

07/05/2003

ola para todos.
Como faço para preencher um combobox com os dias do ano, outro combobox para mes e o outro para anos de 1901 até quanto poderia ser.
Obs.: o preenchimento seria na criação do formulário correto?

Ficarei grato se alguém puder ajudar-me Ozias


Oziasl

Oziasl

Curtidas 0

Respostas

4_olho

4_olho

07/05/2003

A maneira mais fácil é utilizar o Object Inspector, na propriedade Items. Clique nos 3 pontinhos e preencha com o que precisa : meses

Para preencher os anos, use via programação. No eventop OnCreate do form, digite

for i := 1901 to 2999 do
ComboBox3.Items.Add(IntToStr(i));

Para preencher os dias (o que você quis dizer com ´dias do ano´?) faça o i variar de 1 a 31

Não se esqueça de declarar corretamente os tipos.

Não seria mais pratico utilizar o TTimePicker ou semelhante ?


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

07/05/2003

const
  Namemes : array [1..12] of String[9] = (´JANEIRO´,´FEVEREIRO´,´MARÇO´,´ABRIL´,
´MAIO´,´JUNHO´,´JULHO´,´AGOSTO´,
´SETEMBRO´,´OUTUBRO´,´NOVEMBRO´,
´DEZEMBRO´);
var i : integer;
begin

comoboxanos.items.clear;
comboboxmes.items.clear;

for i := 1901 to 2003 do
comoboxanos.items.add(inttostr(i));

for i := 1 to 12 do
comboboxmes.items.add(nomemeses[i]);

for i := 1 to 31 do
comoboxdias.items.add(inttostr(i));

end;

É isso?


GOSTEI 0
POSTAR