Zwischen TabSheets navigieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Bei sog. Wizards oder Assistenten sieht man häufig Buttons, die mit 'Weiter' oder 'Zurück' beschriftet sind. Sie zeigen die nächste, bzw. die vorherige TabSheet.Mit der Methode 'SelectNextPage' kann man dies auch ganz einfach realisieren. Die Methode erwartet einen booleschen Parameter. Steht dieser Parameter auf 'True' wird die nächste TabSheet ausgewählt, steht er auf 'False' die vorherige.
procedure TForm1.Button1Click(Sender: TObject);
begin
//nächste TabSheet auswählen
PageControl1.SelectNextPage(True);
end;
begin
//nächste TabSheet auswählen
PageControl1.SelectNextPage(True);
end;
Ist die letzte TabSheet erreicht, beginnt die Routine beim nächsten Durchlauf an erster Stelle.
Ähnliche Seiten: