TCalendarDialog/fi
From Lazarus wiki
Jump to navigationJump to search
│
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
中文（中国大陆） (zh_CN) │
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
- Valitse päävalikosta Projekti/Uusi projekti
- Siirrä TCalendarDialog-komponentti
lomakkeelle (form).
Sen voi sijoittaa mihin tahansa paikkaan koska se ei ole näkyvä komponentti ohjelman ajon aikana vaan vain suunnitteluaikana.
Se on sijoitettu komponenttipaletin dialogs-välilehdelle - LisääTButton-painike
lomakkeelle. - 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.
- 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
