|
- Какая разница между Богом и Биллом Гейтсом?
- Бог не думает, что он Гейтс.
|
Для этого надо послать сообщение EM_SetTabStops компоненте TMemo, в котором необходимо указать два параметра. Количество передаваемых значений и величины табуляций.
Если первый параметр равняется нулю, то второй параметр игнорируется и величина табуляции сбрасывается в значение по умолчанию (32). Иначе, устанавливается величина указанная во втором параметре, причем, при единичном значении все величины табуляций будут равны, а при большем значении величины берутся из переданного массива.
{Установка одной величины табуляции}
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;
|
|
Изменение величины табуляции в Memo