TabSheet + onclick

[julchen]

Zitat von taaktaak:

Delphi-Quellcode:

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

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

Ja, das ist logisch! D.h. statt eine procedure mit OnClick zu schreiben, schreibe ich OnShow und spare mir so den "Umweg" über das PageControl!
Danke!
[EDIT]Ich spare mir gar nichts, weil ich die Ereignisse ja trotzdem im OI eintragen muss[/EDIT]