TCalendarDialog/fi

TCalendarDialog on valintaikkuna (dialogi), joka auttaa valitsemaan päivämäärän kalenterista. Se löytyy komponentti-paletin Dialogs-välilehdeltä.

Execute metodi näyttää kalenteridialogin. Kyseinen metodi palauttaa true-arvon kun käyttäjä valitsee jonkun päivämäärän ja false-arvon jos käyttäjä peruu tai keskeyttää valinnan.

Esimerkki

1. Valitse päävalikosta Projekti/Uusi projekti
2. Siirrä TCalendarDialog-komponentti lomakkeelle (form).
   Sen voi sijoittaa mihin tahansa paikkaan koska se ei ole näkyvä komponentti ohjelman ajon aikana vaan vain suunnitteluaikana. <br \> <br \> Se on sijoitettu komponenttipaletin dialogs-välilehdelle
3. LisääTButton-painike lomakkeelle.
4. Komponenttimuokkain näyttää Button1 olion ominaisuudet. Siirry Tapahtumat-välilehdelle komponenttimuokkaimessa. Valitse ruutu OnClickin oikealla puolella: siinä on pienempi laatikko, jossa on kolme pistettä (...). Klikkaa sitä, jolloin automaattisesti siirrytään lähdekoodieditoriin ja kohdistin sijoitetaan koodinpätkän alkuun.
5. Täydennä koodi seuraavanlaiseksi:

procedure TForm1.Button1Click(Sender: TObject);
var
    dt:tdatetime;
    calendarSettings:TDisplaySettings;
begin
  dt:= now;
  CalendarDialog1.Date := dt;
  calendarSettings:= [dsShowWeekNumbers,dsStartMonday];
  CalendarDialog1.Title:='Valitse päivä';
  CalendarDialog1.DisplaySettings:= calendarSettings;
  if CalendarDialog1.Execute then
    begin
      dt:= CalendarDialog1.Date;
      ShowMessage( 'Valittu päivä on '+FormatDateTime( 'yyyy-mm-dd',dt ));
    end
  else
    ShowMessage( 'Tänään on '+FormatDateTime( 'yyyy-mm-dd',dt ));
end;

Katso myös

• TCalendarDialog doc
• TDBDateTimePicker
• TDateTimePicker
• TDateEdit
• TTimeEdit
• TDateTime

From the Free Pascal wiki, page "TCalendarDialog/fi", as it stood on 2019-09-26 after a change by Djzepi, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.