调整Memo的Tab的距离

   
procedure TForm1.FormCreate(Sender: TObject);

var

DialogUnitsX:LongInt;

PixelsX:LongInt;

i:integer;

TabArray:array[0..4] of integer;

begin

Memo1.WantTabs:=true;

DialogUnitsX:=LoWord(GetDialogBaseUnits);

PixelsX:=20;

for i:=1 to 5 do

TabArray[i-1]:=((PixelsX*i)*4) div DialogUnitsX;

SendMessage(Memo1.Handle,EM_SETTABSTOPS,5,LongInt(@TabArray));

Memo1.Refresh;

end;