: 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?