TMemo

Code:

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

   begin

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

   end;

SendMessage(Memo1.Handle,

   EM_SETTABSTOPS, 5, LongInt(@TabArray));

Memo1.Refresh;

end;

Code:

{Установка одной величины табуляции}

const

TabInc: LongInt = 40;

begin

SendMessage(Memo1.Handle, EM_SetTabStops, 1, Longint(@TabInc));

end;

 ...

 {Установка двух величин табуляции}

const

TabInc: array [1..2] of LongInt = (10, 30);

begin

SendMessage(Memo1.Handle, EM_SetTabStops, 2, Longint(@TabInc));

end;