Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.016 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#10

Re: wie kann man mehrere texte im prog anzeigen lassen?

  Alt 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;
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat