Merhaba,

delphi 7 de olan
procedure TFormRichNote.IkiYanaYasla(Nesne: TRichEdit);
const
  WM_USER = $400;
  EM_EXSETSEL = (WM_USER + 55);
  EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202);
  EM_GETTYPOGRAPHYOPTIONS = (WM_USER + 203);
  TO_ADVANCEDTYPOGRAPHY = $1;
  mZERO = $0;
var x :tparaformat;
   L :LongInt;
   cp :charrange;
begin
  x.cbSize := sizeof(x);
  if Nesne.SelLength = 0 then
  begin
    cp.cpMin := RichEdit.GetTextLen;
    cp.cpMax := RichEdit.GetTextLen;
    SendMessage(Nesne.Handle,EM_EXSETSEL,mZERO,LPARAM(@cp));
  end;
  L := SendMessageA(Nesne.Handle,EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
  if L = 1 then
  begin
    SendMessageA(Nesne.Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO);
    SendMessage(Nesne.Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@x));
    x.dwMask := PFM_ALIGNMENT;
    x.wAlignment := PFA_JUSTIFY;
    SendMessage(Nesne.Handle, EM_SETPARAFORMAT, mZERO, lparam(@x));
  end;
  cp.cpMin := RichEdit.GetTextLen;
  cp.cpMax := RichEdit.GetTextLen;
  SendMessage(Nesne.Handle,EM_EXSETSEL,mZERO,lparam(@cp));
  Nesne.WordWrap := TRUE;
end;
bu kod vcl .net de neden işlemiyor bilgi verebilirmisiniz yada 2006 vcl .net richedit'de iki yana yaslayı nasıl yaparım yardımlarınız için şimdiden tşk....