Wochentag bei PageControl den entsprechenden TabSheet anzeie

[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