begin
DecodeDate(Now, Yil, Ay, Gun);
GunComboBox.ItemIndex := Gun - 1;
AyComboBox.ItemIndex := Ay - 1;
YilMaskEdit.Text := IntToStr(Yil);
end;
Bilinmeyen delphi komutları
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!