TabSheet + onclick

[julchen]

Korrektur:

Delphi-Quellcode:

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