设置Richedit的Tab位

设置richedit的段落格式（TAB）：

var

info:_PARAFORMAT;

i:integer;

begin

info.cbSize:=sizeof(info);

info.dwMask:=$FFFFFF;

sendmessage(richedit1.Handle, EM_GETPARAFORMAT ,0,integer(@(info)));

for i:=0 to 31 do

info.rgxTabs[i]:=(richedit1.Font.PixelsPerInch-6)*(i+1);

info.dwMask:=PFM_TABSTOPS;

info.cTabCount:=31;

sendmessage(richedit1.Handle, EM_SETPARAFORMAT ,0,integer(@(info)));

end;

************

procedure SetTabstops()

var

TabStops: array[0..3] of word;

begin

TabStops[0]:=10;

TabStops[1]:=20;

TabStops[2]:=30;

TabStops[3]:=40;

TS:=SendMessage(RichEdit.Handle, EM_SETTABSTOPS, 4, LPARAM(@TabStops));

end;

对于Memo也是一样的