Hallo Herr Döring,
mit dem TabSheet war eine gute Idee
Wechseln mit Button zwischen den TabSheet bekommen ich hin.
Ich verstecke die Tabs und beim Button Click erscheint der gewünschte Tab wieder.
So sieht bei mir der Code aus:
procedure xxxxxClick(Sender: TObject);
begin
PageControl1.ActivePage := PageControl1.FindNextPage(PageControl1.ActivePage,
true,
false);
PageControl1.ActivePage.TabVisible := true;
end;
Folgendes Problem:
Es sollte nur der Tab sichtbar sein zu dem gewechselt wurde.
Jetzt sind immer 2 Tabs vorhanden.
Der erste müsste versteckt werden.
Könnten Sie mich hier unterstützen?
Danke
Startmenü zum Starten von Programmen
Nur das Ändern der Sichtbarkeit der neuen Seite reicht nicht aus, die alte Seite müsste noch versteckt werden
Code: Alles auswählen
var
LOldPage: TTabSheet;
begin
LOldPage := PageControl1.ActivePage;
PageControl1.ActivePage := PageControl1.FindNextPage(PageControl1.ActivePage, true, false);
PageControl1.ActivePage.TabVisible := true;
LOldPage.TabVisible := false;
end;
Hallo IBS,
anbei ein kleines Beispiel, wie man es mit GroupBoxen lösen könnte.
anbei ein kleines Beispiel, wie man es mit GroupBoxen lösen könnte.
- Dateianhänge
-
- BspGroupBox__{2A4E0D81-5BCC-4720-9185-AE1557A2AEDC}.sim
- (148.73 KiB) 281-mal heruntergeladen
Mit freundlichen Grüßen / Best regards
Dennis Ruppertz
support@aagon.com
http://www.aagon.de
Aagon GmbH
Lange Wende 33
D-59494 Soest
fon: +49-2921-789-200
fax: +49-2921-789-244
Dennis Ruppertz
support@aagon.com
http://www.aagon.de
Aagon GmbH
Lange Wende 33
D-59494 Soest
fon: +49-2921-789-200
fax: +49-2921-789-244