Wochentag bei PageControl den entsprechenden TabSheet anzeie

[steve-allround]

Hy...
Habe ein PageControl mit TabSheet von Montag bis Sontag und noch 3 weitere TabSheet's.
JEtzt möchte ich den entsprechenden Wochentag anzeigen lassen.

z.B. heute ist Freitag...da soll das TabSheet Freitag am anfang des startes angezeigt werden.

Ich bin totaler Anfänger, deshalb sagt mir bitte wo ich den Code eintragen soll und die er lautet.

Vielen Dank

[Luckie]

Wenn du D6 hast, dann kuck dir mal die Funktion DayOfTheWeek an.
PageControl1.ActivePageIndex := DayOfWeek(now)-1;

[steve-allround]

Ich leider ein totaler Anfänger. Habe mir es angeschaut und nicht kapiert. wo soll ich den Quellcode eintragen? wenn ich den NAmen der versch. TabSheets mit tbs_1 u.s.w. benannt habe..

Bitte helft mir??????????

[scp]

Am besten du setzt is ins OnCreate der Form:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.ActivePageIndex := DayOfWeek(now)-1;
end;

Übrigens: Da du die Woche mit Montag beginnst, musst du DayOfTheWeek() statt DayOfWeek() benutzen, da DayOfWeek() beim zählen mit Sonntag anfängt.

Delphi-Quellcode:

uses
  DateUtils;

//...

procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.ActivePageIndex := DayOfTheWeek(now)-1;
end;

[kiar]

hallo scp,

wo ist fkt dayoftheweek, ab welcher version ist die verfügbar, bei delphi 5 prof nicht.

[r_kerber]

Dann schau mal nach DayOfWeek. Die gibt's mindestens schon seit D3. Aber:

Zitat von OH von Delphi 7:

DayOfWeek ist nicht mit dem ISO 8601-Standard konform, in dem Montag als der erste Tag der Woche definiert wird. Die Funktion DayOfTheWeek stimmt mit dem ISO 8601-Standard überein.

[kiar]

hallo rainer, das beantwortet aber nicht meine frage .
dayofweek kenne ich bloß dayoftheweek nicht.

raik

[Sharky]

Zitat von kiar:

...dayofweek kenne ich bloß dayoftheweek nicht....

Ist meines Wissens seit D6 vorhanden.

[kiar]

danke sharky,

das nenn ich eine beanwortung der frage

raik

[r_kerber]

Zitat von kiar:

das beantwortet aber nicht meine frage .

Ich hätte Dir nur sagen können, das es diese bei D7 gibt aber bei D3 noch nicht. Wollte ja auch eine Alternative aufzeigen.
Nachtrag: bei D6 ist sie auch dabei. Wie's bei D4 und D5 aussieht weiß ich nicht. D5 kann ich am Montag nachschauen. Oder ich krame mal meie alten Installations-CD's raus. Da war die OH normal lesbar mit drauf.