Difference between revisions of "TCalendarDialog"
From Lazarus wiki
Jump to navigationJump to search (→Example: Update sample code (CalendarDialog.FirstDayOfWeek)) |
|||
| Line 16: | Line 16: | ||
# Completion code: | # Completion code: | ||
| + | <syntaxhighlight lang="pascal"> | ||
| + | uses | ||
| + | ExtDlgs, // for the CalendarDialog | ||
| + | Calendar; // for the DisplaySettings and FirstDayOfWeek enumerations | ||
| − | |||
procedure TForm1.Button1Click(Sender: TObject); | procedure TForm1.Button1Click(Sender: TObject); | ||
var | var | ||
| − | + | dt: TDate; | |
| − | |||
begin | begin | ||
| − | + | CalendarDialog1.Date := Now; | |
| − | CalendarDialog1.Date := | + | CalendarDialog1.Title := 'Select a date'; |
| − | + | CalendarDialog1.DisplaySettings := [dsShowWeekNumbers]; | |
| − | CalendarDialog1.Title:='Select a date'; | + | CalendarDialog1.FirstDayOfWeek := dowMonday; // in Laz 3.99+ |
| − | CalendarDialog1.DisplaySettings:= | ||
if CalendarDialog1.Execute then | if CalendarDialog1.Execute then | ||
| − | + | begin | |
| − | + | dt := CalendarDialog1.Date; | |
| − | + | ShowMessage('The selected date is ' + FormatDateTime('yyyy-mm-dd', dt)); | |
| − | + | end | |
else | else | ||
| − | ShowMessage( 'Today is '+FormatDateTime( 'yyyy-mm-dd',dt )); | + | ShowMessage('Today is ' + FormatDateTime('yyyy-mm-dd', dt)); |
| − | end; | + | end; |
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
== See also == | == See also == | ||
Latest revision as of 23:47, 9 September 2023
│
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
中文（中国大陆） (zh_CN) │
TCalendarDialog 
is a dialog that aids in selecting a date from a calendar. It can be found on the Dialogs tab of the Component Palette.
The Execute method displays the calendar dialog. It returns true when user has selected date, false when user has aborted.
Example
- From the menu choose Project/New Project…
- Place a TCalendarDialog widget
on your form.
It can be placed anywhere as it is not visible during program run time but only during design time.
It is located on the Dialogs tab of the component palette - Add a button
in the form. - The Object Inspector will display the properties of the object Button1. Click on the Events tab on the Object Inspector. Select the box to the right of OnClick: a smaller box with three dots (... ellipsis) appears. Click on this, you are taken automatically into the Source Editor and your cursor will be placed in a piece of code starting.
- Completion code:
uses
ExtDlgs, // for the CalendarDialog
Calendar; // for the DisplaySettings and FirstDayOfWeek enumerations
procedure TForm1.Button1Click(Sender: TObject);
var
dt: TDate;
begin
CalendarDialog1.Date := Now;
CalendarDialog1.Title := 'Select a date';
CalendarDialog1.DisplaySettings := [dsShowWeekNumbers];
CalendarDialog1.FirstDayOfWeek := dowMonday; // in Laz 3.99+
if CalendarDialog1.Execute then
begin
dt := CalendarDialog1.Date;
ShowMessage('The selected date is ' + FormatDateTime('yyyy-mm-dd', dt));
end
else
ShowMessage('Today is ' + FormatDateTime('yyyy-mm-dd', dt));
end;
See also
