TabSheet + onclick

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