Для этого необходимо поставить свойство "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;  

Добавлено: 31 Июля 2018 21:48:52 Добавил: Андрей Ковальчук Нравится 0

Добавить