Иду по Москве, глазею по сторонам. Стендов всяких море вокруг. На одном из них реклама чего-то и одна надпись подчеркнута. Мгновенно мысль - ссылка на сайт этого, чего написано. Через пять секунд приходит осознание сползания крыши. Отсюда мораль: Не все, что подчеркнуто, является ссылкой. И следствие: Не всякая ссылка подчеркнута.
Пошлите в Memo сообщение EM_SETTABSTOPS. Например установим первую
позицию табуляции на 20-й пиксел. Пример:
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 dobegin
TabArray[i - 1] := ((PixelsX * i) * 4) div DialogUnitsX;
end;
SendMessage(Memo1.Handle, EM_SETTABSTOPS, 5, LongInt(@TabArray));
Memo1.Refresh;
end;
Статья Как настроить табуляцию в компоненте TMemo раздела Компоненты и Классы TMemo и TRichEdit может быть полезна для разработчиков на Delphi и FreePascal.
