Wochentag bei PageControl den entsprechenden TabSheet anzeie

[kiar]

so sollte der aktulle index erreicht sein

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

[scp]

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