Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi DateTimePicker nur Montage auswählen (https://www.delphipraxis.net/117050-datetimepicker-nur-montage-auswaehlen.html)

mckruep 10. Jul 2008 16:33


DateTimePicker nur Montage auswählen
 
Hallo Leute,

gibt es die Möglichkeit beim DateTimePicker einzustellen, dass man nur Montage auswählen kann ?

Brauch das für ne Statistikfunktion wo immer ne Wochenansicht gemacht werden soll und ein Benutzer das Startdatum wählen soll. Dafür sollte man nur nen Montag auswählen können.


Danke für die Hilfe

littleDave 10. Jul 2008 16:44

Re: DateTimePicker nur Montage auswählen
 
Ich glaube dass man nicht direkt nur Montage erlauben kann. Aber man kann das Datum nach der Auswahl noch im "OnCloseUp"-Event bearbeiten. Für Montag wäre das folgender Code:
Delphi-Quellcode:
uses
  DateUtils;

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
  if DayOfWeek(DateTimePicker1.Date) <> 2 then
     DateTimePicker1.DateTime := DateTimePicker1.Date + (2 - DayOfWeek(DateTimePicker1.Date));
end;
[Edit]Ich seh gerade, dass diese Funktion nicht gerade perfekt funktioniert :oops:, aber der Grundaufbau mit dem Event und dem DayOfWeek sollte funktionieren[/Edit]

mckruep 10. Jul 2008 17:00

Re: DateTimePicker nur Montage auswählen
 
Danke für die schnelle Antwort und den Ansatz werd mich am WE mal dran setzen

marabu 10. Jul 2008 17:30

Re: DateTimePicker nur Montage auswählen
 
Hallo,

eigentlich ist doch der ausgewählte Tag im DTP-Control egal, wenn sich der zugehörige Montag daraus ableiten lässt, oder? Den erhält man übrigens recht komfortabel über die Funktion DateUtils.StartOfTheWeek().

Grüße vom marabu

mckruep 16. Aug 2008 15:27

Re: DateTimePicker nur Montage auswählen
 
Hey,

ja genau habs auch einfach über die SQL Query abgefangen.

Danke für den Tipp


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz