Для этого необходимо
поставить свойство "WantTabs" в "True".
Теперь для управления штртной табуляции необходимо
вызвать API-функцию SendMessage. В последнем
параметре функция ожидает указатель на массив с элементами типа
Word, в котором указаны позиции в единицах экрана.
Для примера вызов функции с указанием двух позиций
табуляции:
procedure TForm1.FormCreate(Sender:TObject);
const
Tabs: array[0..1] of Word = (4, 8);
begin
SendMessage(Memo1.Handle, EM_SetTabStops, 2, LongInt(@Tabs));
end;
|