Stopp, nicht lesen, ich dachte, es halndelt sich um ein normales RichEdit.
Wer lesen kann, ist klar im Vorteil.
sorry
Hi!
Herzlich willkommen in der DP!
Bei mir erschein dieser Fehler nicht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment := taCenter
end;
Wenn ich jetzt einen Textabschnitt markiere und aus diesen Button klicke, erscheint der Textabschnitt uentriert.
Das steht so auch in der
OH:
Zitat von
OH:
Für dieses Beispiel wird ein Formular mit einer Symbolleiste und einem RTF-Eingabefeld benötigt. Klicken Sie mit der rechten Maustaste auf die Symbolleiste, und wählen Sie drei Mal Neuer Schalter. Fügen Sie folgenden Quelltext in die OnClick
-Ereignisbehandlungsroutine des ersten TToolButton-Objekts ein, und weisen Sie die Routine auch dem Ereignis OnClick der anderen Schaltflächen zu.
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
if (Sender = ToolButton1) then
RichEdit1.Paragraph.Alignment := taLeftJustify
else if (Sender = Toolbutton2) then
RichEdit1.Paragraph.Alignment := taCenter
else if (Sender = Toolbutton3) then
RichEdit1.Paragraph.Alignment := taRightJustify;
end;