richedit

[BuT@JL]

Как сделать выравнивание по центру???
Я делаю вот так

procedure TForm1.Button1Click(Sender: TObject);
begin
richedit1.Alignment:=taCenter;
end;

но почему то не работает

[5naip]

попробуйте так :

RichEdit1.Paragraph.Alignment:=taCenter;

[BuT@JL]

5naip Мне нужно текст, находящийся в RichEdit выровнить по центру, а это RichEdit1.Paragraph.Alignment:=taCe nter; ставит курсор по центру а текст остается на месте

[uberchel]

Ну вот!

1)

procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.Alignment:= taCenter;
end;

2)

procedure TForm1.Button1Click(Sender: TObject);
var list: TStringList;
begin
List:= TStringList.Create;
List.Add(RichEdit1.Text);
with RichEdit1 do begin
SelectAll; Clear;
Alignment:= taCenter;
Lines.Add(List.Text);
end;
List.Free;
end;

Помог? если да, то нажми на весы с лева =)

[DomiNick]

Зачем же так сложно-то..? (К тому же у меня срабатывает только со второго нажатия на кнопку)

Мне нужно текст, находящийся в RichEdit выровнить по центру

RichEdit1.SelectAll;
RichEdit1.Paragraph.Alignment:=taCenter;

[BuT@JL]

uberchel спасибо помог

[uberchel]

Ну а в Create ставил RichEdit1.Alignment:= taCenter;
и У меня тоже с первого раза! а то-что написано много, то да.

[BuT@JL]

DomiNick а это еще лучше, спасибо большое )