TabSheet + onclick

[taaktaak]

Delphi-Quellcode:

procedure TForm1.TabSheet1OnShow(Sender: TObject); 
begin 
  Form1.Color := clred; 
end; 

procedure TForm1.TabSheet2OnShow(Sender: TObject); 
begin 
  Form1.Color := clblue; 
end;