Wochentag bei PageControl den entsprechenden TabSheet anzeie

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