TabSheet + onclick

[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".