Na paleta Standard
1 Edit
1 Panel
1 RadioGroup
Na paleta Additional
1 Bitbtn
Na propriedade do form
Height: 267
Width: 233
position:poDesktopCenter
Na propriedade do seu RadioGroup1
Align: : alBottom
Items: Dia
Mês
Ano
Columns : 3
ItemIndex: 0
No evento do seu form onShow
procedure TForm1.FormShow(Sender: TObject);
begin
panel1.Caption:=datetostr(date);
end;
No evento do BitBtn1 OnClick
procedure TForm1.BitBtn1Click(Sender: TObject);
var data:Tdate;
begin
data:=strtodate(panel1.Caption);
case RadioGroup1.ItemIndex of
0:edit1.Text:=formatdatetime('dd', data);
1:edit1.Text:=formatdatetime('mm', data);
2:edit1.Text:=formatdatetime('yyyy', data);
end;
end;
Nenhum comentário:
Postar um comentário