Monat mit Jahreszahl Komponente

[Steven2]

Liebes Forum, ich suche eine Komponente mit der ich mir die Monate mit Namen und Jahreszahlen als Ziffern anzeigen lassen kann.
Gruß Steven

[sx2008]

Nur anzeigen?
Dazu reicht doch ein normales Label aus:
LabelKurzdatum.Caption := FormatDateTime('mmm yyyy', Now); // zeigt 'Jun 2012' an

[Perlsau]

So eine Komponente gibt es meines Wissens nach nicht. Aber du kannst dir die Darstellung des Monatsnamens ganz einfach selber basteln, wie sx2008 oben schon gezeigt hat. Komfortabler geht es damit:

Delphi-Quellcode:

function TFormMain.Vollständiges_Datum(Datum: TDateTime): String;
VAR
   DFormat : TFormatSettings;

begin
     GetLocaleFormatSettings(0,DFormat);

     Result := DFormat.LongDayNames[DayOfTheWeek(Datum)]       + ', den ';  // Wochentag-Name
     Result := Result + IntToStr(DayOf(Datum))                 + '. ';  // Wochentag
     Result := Result + DFormat.LongMonthNames[MonthOf(Datum)] + ' ';   // Monats-Name
     Result := Result + IntToStr(YearOf(Datum));                        // Jahr
end;

Edith meint noch: Wenn du andere als deutsche Bezeichnungen benötigst, spiel einfach mit dem Property LCID herum. 1 ist glaub ich persisch oder so ...

[himitsu]

Komfortabler? (versuch es mal zweistellig, mit führenden Nullen)

FormatDateTime und wenn nötig noch das passende Format-Setting dazu.



PS: TDateTimePicker und TDateTimePicker.Format

[Perlsau]

Zitat von himitsu:

FormatDateTime

Danke, man lernt doch nie aus

[Steven2]

Hallo, vielen Dank für eure Hilfe. Ich brauche eine Komponente mit der ich auch den nächsten Monat "von Hand" auswählen kann. Bei Programmstart wäre sozusagen immer das aktuelle Datum zu sehen und ich kann dann manuell in den Monaten und Jahren steuern. Viele Grüße und nochmal vielen Dank für eure Beiträge! Steven

[Daniel]

Ich habe so eine Komponente mal auf Basis eines DevExpress-Controls realisiert. War gar nicht so wild, in der Ableitung mussten im Wesentlichen nur die Eigenschaften "DisplayFormat" und "EditFormat" überschrieben werden.

[himitsu]

Der TDateTimePicker ist ja auch tastaturbediehnbar.

OK, abgesehn davon, daß der namentliche Monat (MMM) nicht auf Bchstaben reagiert, sondern nur auf Zahlen (1-bis 2-stellig)
und ansonsten geht Peil hoch und runter sowieso, neben den Zahlentasten.

Da macht es sich wohl besser, wenn man im OnEnter das Format auf nummerische Anzeige (MM) umstellt und um OnExit dann wieder auf MMM.

Aber keine Ahnung, wie man das Dropdown per Taste aufbekommt.

[Furtbichler]

Wie wäre es mit einer TComboBox? Oder 2 TComboboxen, einen für die Monate und einen für die Jahre?

Oder einem TEdit, das nur Pfeilhoch/+ bzw. Pfeilrunter/- akzeptiert und die entsprechende Aktion ausführt, nämlich zum nächsten bzw. vorherigen Monat hüpfen.

[Steven2]

Vielen Dank an alle, ich denke dass ich nun eine Menge Ideen bekommen habe wie man sowas lösen kann. Viele Grüße, Steven.