: Win32.
:
1 TDateTimePicker /
2. TMonthCalendar-
3.
1 TDateTimePicker /
/ . DateMode=dmComboBox . , , , . Kind dtkTime, , , Time.
TDateTimePicker:
| TDTCalAlignment = (dtaLeft, dtaRight); property CalAlignment: TDTCalAlignment; | dtaLeft , dtaRight Kind= dtkDate DateMode=dmComboBox |
| property CalColors: TDateTimeColors; | TDateTimeColors, |
| property Checked: Boolean; | Checked=True ShowCheckBox=True, () |
| property Date: TDate; | |
| TDTDateFormat = (dfShort, dfLong); property DateFormat: TDTDateFormat; | dfShort 08. 09. 99, dfLong 8 1999 |
| TDTDateMode = (dmComboBox, dmUpDown); property DateMode: TDTDateMode; | dmComboBox , dmUpDown TupDown |
| TDateTimeKind = (dtkDate, dtkTime); property Kind: TDateTimeKind, | dtkDate , dtkTime |
| property MaxDate: TDate; | , |
| property MmDate: TDate, | , |
| property Parselnput: Boolean, | True, OnUserinput |
| property ShowCheckbox: Boolean, | True, () , () |
| property Time: TTime; |
TDateTimePicker:
| property OnChange: TNotifyEvent; | |
| property OnCloseUp: TNotifyEvent; | |
| property OnDropDown: TNotifyEvent; | |
| DTParselnputEvent = procedure (Sender: TObject; const UserString: String; var DateAndTime: TDateTime; var AllowChange: Boolean) of object; property OnUserlnput: TDTParselnputEvent; | , ParseInput=True. UserString ; DateAndTime Date Time. AllowChange |
|
|
|
2 nth Calendar
. , TDateTimePicker ( dmComboBox DateMode), , , .
TMonthCaiendar:
| property CalColors: TMonthCalColors; | TMonthCalColors (.) |
| property Date: TDate; | |
| property EndDate: TDate; | |
| type TCalDayOfWeek = (dowMonday, dowTuesday, dowWednesday, dowThursday, dowFriday, dowSaturday, dowSunday, dowLocaleDefault); property FirstDayOfWeek: TCalDayOfWeek; | |
| property MaxDate: TDate; | , . , |
| property MaxSelectRange: Integer; | |
| property MinDate: TDate; | , . , |
| property MultiSelect: Boolean; | / |
| property ShowToday: Boolean; | / ( ) |
| Property ShowTodayCircle: Boolean; | / |
| property WeekNumbers: Boolean; | / |
TMonthCalColors:
Backcolor , ;
MonthBackColor ;
Textcolor ;
TitleBackColor ;
TitleTextcolor ;
TrailingTextcolor .
InputBox InputQuery
InputBox Dialogs :
function InputBox(const ACaption, APrompt, ADefault: string): string;
Acaption, Aprompt - , Adefault. , . Cancel, Esc, , Adefault, - .
,
|
|
|
Name:= InputBox(, , , , );
:
Name , ,
, - , , , Adefault. , , , .
, , , InputBox InputQuery:
function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
ACaption Aprompt , InputBox. Value . , InputQuery Value .
InputQuery true , , . ( Esc, Cancel) false, Value , InputQuery.
, :
Name:= '';
if InputQuery(', ',
', ', Name) then
ShowMessage(', ' + Name + '!')
else
ShowMessage(' , ');
, , , , .
: 2, .145-167.
.
1. TDateTimePicker?
2. TDateTimePicker ?
3. TDateTimePicker ?
4. TDateTimePicker ?
5. nth Calendar?
