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 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 von mirage228:

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

Nein, zu dem Zeitpunkt existieren die Komponenten schon.

......

[mirage228]

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 von mirage228:

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

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

......

[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

......

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