Selecionar data em listbox a partir de um calendário ?

Delphi

07/05/2003

Ae tipo eu coloquei um calendario e tenho uma listbox com varias datas de varios anos quero que quando o cara procurar ali no calendario e clicar em uma data especifica a listbox automaticamente selecione a data que ele selecionou, tipo procura direto e seleciona pois são muitas datas, como seria isso ?


Fsjr

Fsjr

Curtidas 0

Respostas

Samth

Samth

07/05/2003

Não sei se dá certo mas não custa tentar...

procedure Calendário.OnSelectDate

[b:cf14a776da]begin[/b:cf14a776da]
listbox.items.add (DatetoStr(Calendário.Date));
[b:cf14a776da]end;[/b:cf14a776da]

não esquece também de fazer um ´pack´ na lista, pra não ficar com valores em branco.

Espero ter ajudado.


GOSTEI 0
Adilsond

Adilsond

07/05/2003

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.Add(´01/05/2003´);
  ListBox1.Items.Add(´02/05/2003´);
  ListBox1.Items.Add(´03/05/2003´);
  ListBox1.Items.Add(´04/05/2003´);
  ListBox1.Items.Add(´05/05/2003´);
  ListBox1.Items.Add(´06/05/2003´);
  ListBox1.Items.Add(´07/05/2003´);
  ListBox1.Items.Add(´08/05/2003´);
  ListBox1.Items.Add(´09/05/2003´);
  ListBox1.Items.Add(´10/05/2003´);
  ListBox1.Items.Add(´11/05/2003´);
  ListBox1.Items.Add(´12/05/2003´);
  ListBox1.Items.Add(´13/05/2003´);
  ListBox1.Items.Add(´14/05/2003´);
end;

procedure TForm1.Calendar1Change(Sender: TObject);
var
  Pos: Integer;
begin
  Pos := ListBox1.Items.IndexOf(DateToStr(Calendar1.CalendarDate));
  if Pos > -1 then
     ListBox1.ItemIndex := Pos;
end;



GOSTEI 0
POSTAR