Startmenü zum Starten von Programmen

IBS
Beiträge: 33
Registriert: Di Feb 26, 2013 5:17 pm

Re: Startmenü zum Starten von Programmen

Beitragvon IBS » Fr Jun 03, 2016 1:38 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: 62
Registriert: Do Apr 22, 2010 10:38 am

Re: Startmenü zum Starten von Programmen

Beitragvon FBiehn » Fr Jun 03, 2016 1:49 pm

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: 17
Registriert: Mi Nov 26, 2014 4:32 pm

Re: Startmenü zum Starten von Programmen

Beitragvon DRuppertz » Fr Jun 03, 2016 2:14 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) 118-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: 33
Registriert: Di Feb 26, 2013 5:17 pm

Re: Startmenü zum Starten von Programmen

Beitragvon IBS » Fr Jun 03, 2016 2:22 pm

Perfekt, Danke :D

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast