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