wie kann ich ein Tag anzeigen bei TPageControl / TabSheet

[steve-allround]

Hallo,
Ich habe Ein TPageControl

Montag Dienstag Mittwoch Donnerstag Freitag

Wie kann ich jetzt es machen, das wenn heute Freitag wäre auch Freitag (TapSheet) angezeigt wird.

[sakura]

Wenn das Tabsheet für Freitag tbsFreitag heisst, dann:

PageControl1.ActivePage := tbsFreitag; ......

[steve-allround]

und wo setzte ich das ein?

[steve-allround]

habe ich das richtig eingesetzt?

Delphi-Quellcode:

procedure TForm1.WocheChange(Sender: TObject);
begin
PageControl1.ActivePage := tbsMontag;
end;

procedure TForm1.tbsMontagContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin

end;

[mirage228]

Ich würde die Tabsheets von 2 bis 6 durchnummerieen (also als name: tbs_2, tbs_3 etc.)

und dann

Delphi-Quellcode:

if FindComponent('tbs_' + IntToStr(DayOfWeek)) <> nil then
  PageControl1.ActivePage := FindComponent('tbs_' + IntToStr(DayOfWeek));

DayOfWeek: 1ter Wochentag ist Sonntag und Samstag der 7te

mfG
mirage228

[steve-allround]

und wo soll ich das einsetzen?

[sakura]

Zum Beispiel in das OnCreate (Objekt Inspektor) Deines Formulares.

......

[mirage228]

Am besten im OnShow. Dort wird dann einmalig mit DayOfWeek der Wochentag abgefragt.

@Sakura: Würde der Zugriff auf die Komponente im OnCreate keine AccessViolation auslösen?

[sakura]

Ist zwar in Englisch aber sehr zu empfehlen.

Essential Pascal
Essential Delphi

......

[steve-allround]

Sorry, bin leider Anfänger..

Wo finde ich den OnFormShow?