seçilen ayın tarihlerini otomatik olarak kontrollere atmak..

[serkan]

başlık biraz saçma oldu kabul...
formda yer alan 31 adet tarih kontrolü var arkadaşlar comboboxtan ayı seçtiğimde mesela ocak ayını 1. tarih kontrolüne 01.01.2005 salı 2.tarih kontrolüne 02.01.2005 çarşamba ....v.s şeklinde otomatik olarak aktarmasını istiyorum bunu çözmem şart lütfen yardım.

[rsimsek]

DateTimePicker kullandığını varsayarak;

Kod: Tümünü seç

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
  DateTimePicker2.Date := DateTimePicker1.Date + 1;
  DateTimePicker3.Date := DateTimePicker1.Date + 2;
  DateTimePicker4.Date := DateTimePicker1.Date + 3;
  .....
end;

[hdayi]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
gun, ay, yil:word;
tarih:Tdate;
i:integer;
begin
    yil:=2005;
    ay:=ComboBox1.ItemIndex+1;
    gun:=1;
    tarih:=EncodeDate(yil,ay,gun);
    ListBox1.Items.Add(DateToStr(tarih));
    for i:=1 to 30 do
    begin
        tarih:=IncDay(tarih) ;
        ListBox1.Items.Add(DateToStr(tarih));
    end;
end;

Kontrol dediğinin ne tür bir component olduğunu bilemedim ama, tarihleri listbox'a ekledim sırası ile.
Burada önemli olan ilk tarihi oluşturmak encodedate() yapıyor bunu. diğeri de ilk tarihten sonra günleri birer artırmak ki incday de bunu yapıyor.

Kolay Gelsin...

[vkamadan]

merhaba ,
Forma yerleştriğini TDAtaTimePicker lerin eklediğin sırayla arttırılacağını farzederek aşağıdaki kodu yazıyorum eğer sırası değşikse olayı tag paramtresiyle geliştirebilirsin.

Kod: Tümünü seç

var
i:integer;
tarih:TDate;
begin
tarih:=DateTimePicker1.date;
for i:=0 to componentcount-1 do
begin
if components[i] is TDatetimePicker then TDatetimePicker(components[i]).date:=Tarih;
tarih:=Tarih+1;
end;
end;

iyi çalışmalar.