4 (1935)

120 Aplikacje w Delphi. Przykłady

procedurę TForml.DateTimePickerlChange(Sender: TObject); var d,m,r:word;

s:strlng; begin

DecodeDate(DateTimePickerl.Datę, r.m.d); case m of

1: S:='	styczni a ’;
2: S	1 utego ';
3: s:='	marca ':
4: s: = '	kwietnia ':
5: s:='	maja ':
6: s:='	czerwca ';
7: s: = '	lipca ^1;
8: S: = '	sierpnia
9: S:='	września
10: s:='	października
11: S:='	listopada
12: s:=' end:	grudnia ':

Labell.Caption:='Wybrano datę: '+IntToStr(d)+s+Inttostr(r): end;

procedurę TForml.FormCreateCSender: TObject): begin

DateT i mePi cker1.Format: ='dd.MM.yyyy': end: