TabSheet + onclick

[julchen]

Korrektur:

Delphi-Quellcode:

Case PageControl1.ActivePage.TabIndex of
       1: Form1.Color:= clblue;
       2: Form1.Color:= clred;
       .
       .
       .
end;

[Micha88]

So würde ich es machen:

Delphi-Quellcode:

case TPageControl(Sender).ActivePageIndex of
       0: Form1.Color:= clblue;
       1: Form1.Color:= clred;
       2: Form1.Color:= clblack;
end;

[taaktaak]

Warum?
TPageControl(Sender)... Würde doch nur Sinn machen, wenn verschiedene PageControls "senden". Im vorliegenden Fall wird die Nachricht doch von verschiedenen TabSheets verschickt - oder?

//edit - Ach, Quatsch! Streichen den Text!

[Micha88]

Ja dann eben:

Delphi-Quellcode:

case PageControl1.ActivePageIndex of
       0: Form1.Color:= clblue;
       1: Form1.Color:= clred;
       2: Form1.Color:= clblack;
end;

Ich schreibe aber, bei jedem größeren Projekt, prinzipiell immer mit "Sender".

[taaktaak]

schon klar!
War was ich geschrieben hatte!