Fórum preenchimento de combobox #158492
07/05/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
07/05/2003
4_olho
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 ?
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 ?
Responder
Gostei + 0
07/05/2003
Marcelo Saviski
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?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)