Forum: Object-Pascal / Delphi-Language
Delphi
by taaktaak,
21. Aug 2008
:oops: schon klar!
War :stupid: was ich geschrieben hatte!
Forum: Object-Pascal / Delphi-Language
Delphi
by taaktaak,
21. Aug 2008
Warum?
TPageControl(Sender)...
Würde doch nur Sinn machen, wenn verschiedene PageControls "senden". Im vorliegenden Fall wird die Nachricht doch von verschiedenen TabSheets verschickt - oder?
//edit - Ach, Quatsch! Streichen den Text!
Forum: Object-Pascal / Delphi-Language
Delphi
by taaktaak,
21. Aug 2008
procedure TForm1.TabSheet1OnShow(Sender: TObject);
begin
Form1.Color := clred;
end;
procedure TForm1.TabSheet2OnShow(Sender: TObject);
begin
Form1.Color := clblue;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by taaktaak,
21. Aug 2008
Nur mal so am Rande bemerkt: Mein Delphi7 kennt kein OnClick() des TabSheets.