Delphi wie kann ich ein Tag anzeigen bei TPageControl / TabSheet

wie kann ich ein Tag anzeigen bei TPageControl / TabSheet

Ein Thema von steve-allround · begonnen am 4. Jan 2004 · letzter Beitrag vom 5. Jan 2004

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge

Delphi 2010 Professional

4. Jan 2004, 20:45

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

David F.

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: