TCalendarDialog

pt 

WSRegisterClass

pt 

GetNewDate

pt 

CalendarDblClick

pt 

DefaultTitle

 

Create

 

Execute

 

TExtCommonDialog

pt 

GetLeft

pt 

GetHeight

pt 

GetTop

pt 

GetWidth

pt 

SetLeft

pt 

SetTop

 

Create

 

Destroy