wie kann ich ein Tag anzeigen bei TPageControl / TabSheet

[mirage228]

Du klickst auf dein Formular (nicht auf eine der Komponenten drauf). Dann gehst im "Object Inspector" auf "Ereignisse" (oben) und klickst doppelt auf "OnShow". Dort fügst du den Code in.

[sakura]

Zitat:

Zitat von mirage228

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

Schlechte Idee, da nach dem Verstecken beim wieder anzeigen die Userwerte u.U. weg sind ;-)

Zitat:

Zitat von mirage228

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

Nein, zu dem Zeitpunkt existieren die Komponenten schon.

...:cat:...

[mirage228]

Zitat:

Zitat von sakura

Schlechte Idee, da nach dem Verstecken beim wieder anzeigen die Userwerte u.U. weg sind ;-)

Seltsamerweise wird bei mir OnShow nur beim erstmaligen Anzeigen der Form aufgerufen. (Delphi 3).
Wenns bei neueren Delphi-Versionen anders ist, werde ich Zukunft darauf achten^^

Zitat:

Nein, zu dem Zeitpunkt existieren die Komponenten schon.

Ok hast recht, das gilt nur auf den Zugriff auf Komponenten von anderen Formularen (die ja dann noch nicht erstellt sind)

mfG
mirage228

[sakura]

Zitat:

Zitat von mirage228

Seltsamerweise wird bei mir OnShow nur beim erstmaligen Anzeigen der Form aufgerufen. (Delphi 3).

Nicht ganz, mach mal FormX.Hide; ... FormX.Show ;-)

...:cat:...

[steve-allround]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
 if FindComponent('tbs_' + IntToStr(DayOfWeek)) <> nil then
  PageControl1.ActivePage := FindComponent('tbs_' + IntToStr(DayOfWeek));

end;

Wenn ich das so mache, sagt Dephi mir, das nicht genügend wirkliche Parameter vorhanden sind.

Hilfe????

[mirage228]

Sorry, hatte mich verschrieben.

Es muss DayOfWeek(Now) heißen.

@Sakura: Stimmt. Dann lauf ich ja fast mit ner tickenden Zeitbombe in einigen meiner Programm rum. Dort verwende ich nämlich nie ein .Show() oder .Hide(). Werde dann wohl nachbessern.

[sakura]

Dann schaue mal nach Beispielen: FindComponent Die Suche wirst Du doch verstehen ;-)

...:cat:...

[steve-allround]

Könnt Ihr mir bitte nochmal den genauen Code geben? Also ich habe jetzt Montag mit tbs_2; Diebstag mit tbs_3 u.s.w. belegt. Soll ich den Quelltext in

Delphi-Quellcode:

procedure TForm1.tbs_3ContextPopup(Sender: TObject; MousePos: TPoint;
  
begin

oder

Delphi-Quellcode:

procedure TForm1.WocheChange(Sender: TObject);
begin

eintragen?

Hilfe?????