Si tratta di un PageControl o di un TabControl?Originariamente inviato da FinalFantasy
Devo creare + schede di un tab dinamicamente. Avevo pensato ad una procedura che creava gli oggetti, ma non so come impostarla. Devo creare altre cose del genere, quindi se qualcuno ne è capace (e ci sarà) e mi ascolta gli dico: cortesemente potresti scrivere un codice versatile? Grazie a chiunque sia in ascolto
![]()
![]()
Nel secondo caso, il problema è abbastanza semplice da risolvere; nel primo caso, devi creare dinamicamente a runtime un'istanza della classe TTabSheet: è la classe che rappresenta le pagine ospitabili dal PageControl.
Per esempio, ho creato un progetto vuoto e al suo interno ho inserito un TPageControl e un TButton; quando si preme il pulsante, viene creato un nuovo TTabSheet in questo modo:
dove APageControl è il nome del controllo a pagine.codice:procedure TForm1.Button1Click(Sender: TObject); var NewTabSheet: TTabSheet; begin NewTabSheet := TTabSheet.Create(Self); NewTabSheet.Caption := 'Nuova pagina'; NewTabSheet.PageControl := APageControl; end;
Ciao!![]()