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.

Delphi-Quellcode:

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:

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:

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 :thuimb:

raik

[r_kerber]

Zitat:

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.

[steve-allround]

Wie soll ich dann die TabSheets benennen?

Steve

[kiar]

kein problem rainer, habe dich schon richtig verstanden.

raik

delphi 5 habe ich selber, da ist sie nicht dabei

[steve-allround]

Hallooo???

Wie soll ich jetzt die TabSheets benennen? Geht es auch, wenn man noch mehr auser nur Montag bis Freitag TabSheets drin hat?
PageControl habe ich Woche benannt.

[Sharky]

Hai steve-allround,

der Name der TabSheets ist egal da in den Beispielen über den TabIndex (bei 0 beginnend) auf die Tabs zugegriffen wird.
Ergo kannst Du auch noch mehr Tabs haben. Vorausgesetzt das die mit den Wochentagen "an einem Sück" sind (also ohne andere Tags dazwichen.

[steve-allround]

Danke aber es funktioniert nicht...
ich zeige mal....

Bild wie es aussieht in der Anlage....

Quelltext

Delphi-Quellcode:

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




sExePath := ExtractFilePath(Application.ExeName);

 MediaPlayer1.FileName:=sExePath + 'dll/vorspann.wma';
MediaPlayer1.open;
MediaPlayer1.Play;


  {Jahr}
{Speichern}
memo13.Lines.LoadFromFile(sExePath + 'settings/jahr1.dll');

u.s.w.

[Sharky]

Versuche es mal wenn Du dies: PageControl1.ActivePageIndex := DayOfTheWeek(now)-1; in das Formaktivate Ereigniss packst.

Und was genau geht denn nicht?

[steve-allround]

Der Wochentag wird nicht angezeigt....
Also es bleibt immer der geöffnet, den ich zuletzt offen hatte...
kann ich dir mal den completten Ordner per Mail schciken?

[Luckie]

Ich habe im Beispeil Code auch DayOfWeek benutzt und nicht wie du DayOfTheWeek. Kuck doch einfach mal, was DayOfTheWeek zurückgubt:

Delphi-Quellcode:

ShowMessage(IntToStr(DayOfTheWeek(now)-1));

Oder eben DayOfWeek.

[steve-allround]

Bei den heutigen Tag sagt er mir 5

aber es wird nie der richtige TabSheet angezeigt.

[kiar]

haben wir heute nicht sonnabend, dann müßte bei dayoftheweek eine 6 sein, oder?

ok, ich habe die -1 übersehen :shock:

raik

[kiar]

so sollte der aktulle index erreicht sein

Delphi-Quellcode:

PageControl1.Pages[DAyofweek(now)-1]

[kiar]

so funktioniert es mit dayofweek:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

var Tage : array [1..7] of string;
       i : integer;
begin
     tage[1]:= 'Montag';
     tage[2]:= 'Dienstag';
     tage[3]:= 'Mittwoch';
     tage[4]:= 'Donnerstag';
     tage[5]:= 'Freitag';
     tage[6]:= 'Sonnabend';
     tage[7]:= 'Sonntag';
     pagecontrol1.Pages[Dayofweek(now)-1];
        for  i:= 1 to 7 do
            pagecontrol1.Pages[i-1].Caption:=tage[i];
          
end;

hoffe es hilft.

raik

[scp]

Zitat:

Zitat von kiar

so funktioniert es mit dayofweek:
...

Na dann guck mal heute. Jetzt zeigt er dir ne Exception oder so, weil Sonntag 0 (null) und nicht 7 ist.

[kiar]

bei mir wird sonntag angezeigt :gruebel:

[scp]

Hmmm... Dann hat sich das wohl von Delphi 5 auf 6 geändert.