Thema: Delphi "wie" PageControl

Einzelnen Beitrag anzeigen

CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#4
  Alt 10. Jun 2003, 16:40
Nimm dir ein TNotebook. Pflanze es auf dein Formular.
Nehme dir Buttons. Pflanze sie auf dein Formular. Verändere das OnClick-Ereignis aller Buttons auf:
Delphi-Quellcode:
procedure TForm1.AllBtnsClick(Sender: TObject);
begin
  Notebook1.ActivePage := (Sender As TButton).Caption;
end;
Die Beschriftung der Buttons muss den jeweiligen Seitennamen des Notebooks entsprechen...

Chris
  Mit Zitat antworten Zitat