Pagecontrolproplem

[Adrian112]

Hallo,

ich würde gerne für meine Textverarbeitung TexEdit ein Pagecontrol verwenden,
um mehrere dokumente gleichzeitig zu öffnen. Das mit neuen Seiten erstellen klappt schon,
doch wie soll ich dann ein Richedit einfügen. Und wie kann ich dafür sorgen, dass
wenn man zumbeispiel die Schriftart ändert das nur für das gerade aktive Richedit
gemacht wird?

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Sonstige Fragen zu Delphi" nach "VCL / WinForms / Controls" verschoben.

[CCRDude]

1. Der Link in Deiner Signatur ist kaputt (fehlt wohl ein ":")
2. Bei TexEdit denke ich immer an TeX, dabei erwähnst Du ausgerechnet das nicht ;)

Ok, ich schweife ab. Die Lösung lautet, die einzelne TTabSheet mit den Elementen darauf dynamisch zu erstellen, also etwa:

Delphi-Quellcode:

var tabNew: TTabSheet;
begin
   tabNew := TTabSheet.Create(pcMain);
   tabNew.Parent := pcMain;
   tabNew.PageControl := pcMain;
   // hier das TRichEdit und weitere Komponenten erzeugen
end;

Damit Änderungen sich nur auf das aktuelle auswirken, schaust Du pcMain.ActivePage nach, enumerierst dort alle Controls (Eigenschaften "Controls", "ControlCount"), und wenn eines der TRichEdit ist ("is TRichEdit"), dann wendest Du deine Formatierung auf dessen Inhalt an.

[Adrian112]

Danke für den Tipp, und wo genau fehlt ein ':'?

[CCRDude]

Also einen Link prüfen darf doch nicht so schwer sein :P
Geh einfach mit der Maus über den Link, dann wirst Du sehen daß er als:

Zitat:

http://http//www......

erscheint. Offensichtlich fehlt der also an Position 5, und da das http// somit nicht als Protokoll angesehen wird, setzt der Browser noch ein http:// davor.

[Adrian112]

Aha, hab ich ganz übesehen :oops:

[Adrian112]

Funktioniert das auch mit Pagecontrol?

[CCRDude]

pcMain oben IST ein TPageControl. Aber die Unterseiten eines TPageControls sind nun TTabSheets ;)

[Adrian112]

Oh man, bin ich blöd!!! :wall:

[Adrian112]

Ich hab jetzt den Quelltext mal getestet, und das mit den TabSheets erstellen funkt
schon mal. aber das mit der einzelveränderung funkt noch nicht.

Delphi-Quellcode:

PageControl1.ActivePage.Controls[RichEdit1.Selattributes.Size:=StrToInt(ComboBox1.Text)];

wie könnte es anders gehen?