Startmenü zum Starten von Programmen

Alle Fragen rund Antworten rund um die ACMP Client Commands und Container
IBS
Beiträge: 34
Registriert: Di Feb 26, 2013 5:17 pm

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
FBiehn
Beiträge: 97
Registriert: Do Apr 22, 2010 10:38 am

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; 
DRuppertz
Beiträge: 29
Registriert: Mi Nov 26, 2014 4:32 pm

Hallo IBS,

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) 276-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
IBS
Beiträge: 34
Registriert: Di Feb 26, 2013 5:17 pm

Perfekt, Danke :D
Antworten