Wie öffne ich ein TTabSheet im Hintergrund?

[Benni]

Hallo allerseits,

ich habe in einem Projekt von mir ein TPageControl. Dafür erzeuge ich dynamisch TTabSheets, die auf diesem PageControl liegen.

Nun will ich, dass neue TabSheets im Hintergrund geöffnet werden (d.h. das aktive Sheet bleibt auch das aktive). Leider bekomme ich das aber nicht hin - das PageControl setzt sofort das neue TabSheet als aktives ein, wenn die Zeile

NewTab.PageControl := PageControl;

ausgeführt wird. Woran kann das liegen?

Danke für jede Hilfe!

Ciao

Benni

[Björn Barthusel]

Versuch mal das:

<PRE>
procedure TForm1.StopChanging(Sender: TObject; var AllowChange: Boolean);
begin
AllowChange := false;
end;

...
PageControl.OnChanging := StopChanging;
NewTab.PageControl := PageControl;
PageControl.OnChanging := nil
...
</PRE>

Viele Grüße,
Björ