Und wenn jetzt noch 5 tabsheets dazu kommen, hast du noch 5 Prozeduren mehr! Weise doch jedem Tabsheet einen Tag zu!!
Delphi-Quellcode:
Case PageControl1.ActivePage.Tag of
1: Form1.Color:= blue;
2: Form1.Color:= red;
.
.
.
end;
edit: Das case muss natürlich in das OnChange des PageControl!!!! (wie sirius es andeutet)