Wochentag bei PageControl den entsprechenden TabSheet anzeie

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

raik