
(*
 Delphi Object and Component Reference
#{bmc bm10.BMP} Alignment example
To use this example, place a Toolbar and a RichEdit on the form. Right click the toolbar and select New Button three times.  Place the ToolButton1Click handling code in the on click event of the first TToolButton, then attach the same OnClick handler for each button.
*) 
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;
 
