Mahnazmezon

Hoe de tabbladen van de TPageControl Delphi Control verbergen

Wetenschap
Share

De TPageControl Delphi-bediening geeft een aantal pagina's weer die worden gebruikt om een ​​dialoogvenster met meerdere pagina's te maken. Elke pagina - een tabblad - heeft zijn eigen besturingselementen. De gebruiker selecteert een pagina (maakt deze zichtbaar) door op het tabblad van de pagina te klikken dat boven aan het besturingselement verschijnt.

PageControl-tabbladen verbergen

Als u een wizard-achtige gebruikersinterface moet maken waarbij de knoppen Volgende en Vorige verschijnen om een ​​gebruiker vooruit en achteruit door een reeks pagina's (dialoogvensters) te verplaatsen, verberg dan de tabbladen van de PageControl en verbiedt dus het selecteren van een bepaalde pagina door middel van van de muis van de gebruiker.

De kunst ligt in het instellen van de TabVisible eigenschap onwaar voor elk van de bladen (TTabSheet-object) van het paginabesturingselement.

De pagina activeren met behulp van de ActivePage of de ActivePageIndex PageControl eigenschappen zullen niet verhoog de OnChange en OnChanging events.

Gebruik de methode SelectNextPage om de actieve pagina programmatisch in te stellen:

 // Hide PageControl Tabs
var
pagina: geheel getal;
beginnen
voor pagina: = 0 tot PageControl1.PageCount - 1 doen
beginnen
PageControl1.Pages [pagina] .TabVisible: = false;
einde;
// selecteer het eerste tabblad
PageControl1.ActivePageIndex: = 0;
(*
Of stel Actieve pagina rechtstreeks in
PageControl1.ActivePage: = TabSheet1;
Opmerking: de bovenstaande twee verhogen NIET de
OnChanging en OnChange-evenementen
*)
einde;
procedure TForm1.PageControl1Changing (
Afzender: TObject;
var AllowChange: Boolean);
beginnen
// geen verandering als op de laatste pagina
AllowChange: = PageControl1.ActivePageIndex < -1 + PageControl1.PageCount;
einde;
// Selecteer "Vorige" Tabprocedure TForm1.PreviousPageButtonClick (afzender: TObject);
beginnen
PageControl1.SelectNextPage (false, false);
einde;
// Selecteer "Next" Tabprocedure TForm1.NextPageButtonClick (Sender: TObject);
beginnen
PageControl1.SelectNextPage (waar, onwaar);
einde;

Met behulp van deze techniek wordt de vorm opgeruimd, wat leidt tot een meer gestroomlijnde interface, maar zorgt u ervoor dat de opstelling van de bedieningselementen op elk tabblad de gebruiker niet dwingt om regelmatig tussen tabbladen te schakelen.

Wetenschap
×