Forum: Programmieren allgemein
by DeddyH,
19. Dez 2011
Da hast Du #7 und #8 wohl übersehen :zwinker:
Forum: Programmieren allgemein
by DeddyH,
19. Dez 2011
Und so?
procedure TMainForm.Button26Click(Sender: TObject);
begin
Form1.Solution1.ActivePage:= Form1.TabSheet1;
Form1.ShowModal;
end;
procedure TMainForm.Button32Click(Sender: TObject);
begin
Form1.Solution1.ActivePage := Form1.TabSheet2;
Forum: Programmieren allgemein
by DeddyH,
19. Dez 2011
Das heißt, es sieht jetzt ungefähr so aus?
procedure TfrmMain.Button1Click(Sender: TObject);
begin
frmTabTest.pcTest.ActivePage := frmTabTest.TabSheet1;
frmTabTest.ShowModal;
end;
procedure TfrmMain.Button2Click(Sender: TObject);
begin
frmTabTest.pcTest.ActivePage := frmTabTest.TabSheet2;
Forum: Programmieren allgemein
by DeddyH,
19. Dez 2011
Also, unter Delphi 2007 funktioniert das hier bei mir. Hast Du evtl. übersehen, dass Du ActivePage erst setzt, wenn das Form2 bereits angezeigt wurde, d.h. die Änderung erst beim erneuten Aufruf von Show(Modal) zum Tragen kommt?
Forum: Programmieren allgemein
by DeddyH,
19. Dez 2011
ist in diesem Fall gleichbedeutend mit
Form1.Solution1.ActivePage := self.TabSheet2;
Das dürfte ja nicht das sein, was Du beabsichtigst.