Registriert seit: 12. Aug 2003
Ort: Soest
4.016 Beiträge
Delphi 10.1 Berlin Enterprise
|
Re: wie kann man mehrere texte im prog anzeigen lassen?
15. Okt 2004, 13:32
Zitat von tester123:
hmmmm ok wie ichs erstelle ist jezt klar aber man kann doch jetzt keiner weiteren tabs aus der anwendung erstellen (wenn man auf neu geht zb ... oder?)
Ich hab der Faulheit halber mal was aus der Delphi-Hilfe kopiert:
Zitat:
Im folgenden Beispiel werden zehn Registerkarten erzeugt und mit den jeweiligen Werten von PageIndex und TabIndex beschriftet. Bei allen Registern mit ungeraden Indexnummern ist die Eigenschaft TabVisible deaktiviert, um das Prinzip von PageIndex und TabIndex zu vergleichen. Bezogen auf die sichtbaren Register ergibt PageIndex die Wertefolge 0, 2, 4, 6, 8, während TabIndex die Folge 0, 1, 2, 3, 4 liefert. PageIndex zählt nur die sichtbaren Register.
Delphi-Quellcode:
{ Hinweis: Pages[i] hat den Typ TTabSheet. }
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
with PageControl1 do
for i := 0 to 9 do
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
Pages[i].TabVisible := (i mod 2 = 0);
Caption := 'PageIndex: ' +
IntToStr(Pages[i].PageIndex) + ' TabIndex: ' +
IntToStr(Pages[i].TabIndex);
end;
end;
|
|
Zitat
|