Bildlaufleisten zur Laufzeit hinzufügen
Nach oben zu Text in Steuerelementen bearbeiten
RTF- und Memokomponenten können bei Bedarf horizontale und vertikale Bildlaufleisten enthalten. Ist der Wortumbruch aktiviert, wird nur eine vertikale Bildlaufleiste benötigt. Bei deaktiviertem Wortumbruch kann auch eine horizontale Bildlaufleiste angezeigt werden, da die Textzeilen nicht durch den rechten Rand des Editors begrenzt sind.
So fügen Sie zur Laufzeit Bildlaufleisten hinzu:
- Stellen Sie fest, ob Text über den rechten Fensterrand hinausgehen kann. In den meisten Fällen überprüfen Sie einfach, ob der Zeilenumbruch aktiviert ist. Sie können auch testen, ob tatsächlich eine Textzeile die Breite des Steuerelements überschreitet.
- Setzen Sie die Eigenschaft ScrollBars auf den gewünschten Wert.
Im folgenden Beispiel wird einer Menüoption zum Aktivieren des Zeilenumbruchs eine OnClick-Ereignisbehandlungsroutine zugeordnet.
procedure TForm.WordWrap1Click(Sender: TObject);
begin
with Editor do
begin
WordWrap := not WordWrap; { Umbruch umschalten }
if WordWrap then
ScrollBars := ssVertical { Bei aktivem Umbruch nur vertikale Bildlaufleiste erforderlich }
else
ScrollBars := ssBoth; { Bei aktivem Umbruch sind beide Bildlaufleisten erforderlich }
WordWrap1.Checked := WordWrap; { Menüeintrag entsprechend markieren }
end;
end;
void __fastcall TForm::WordWrap1Click(TObject *Sender) {
Editor->WordWrap = !(Editor->WordWrap); // Umbruch umschalten
if (Editor->WordWrap)
Editor->ScrollBars = ssVertical; // Bei aktivem Umbruch nur vertikale Bildlaufleiste erforderlich
else
Editor->ScrollBars = ssBoth; // Bei aktivem Umbruch sind beide Bildlaufleisten erforderlich
WordWrap1->Checked = Editor->WordWrap; // Menüeintrag entsprechend markieren
}
RTF- und Memokomponenten behandeln Bildlaufleisten unterschiedlich. Bei RTF-Komponenten können die Bildlaufleisten ausgeblendet werden, wenn der gesamte Text innerhalb des Steuerelements angezeigt werden kann. Bei Memokomponenten werden die Bildlaufleisten immer angezeigt, wenn sie aktiviert sind.