Вопрос и Ответ 42 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Самоучитель UML

Первое издание.

В книге рассматриваются основы UML – унифицированного языка моделирования для описания, визуализации и документирования объектно-ориентированных систем и бизнес-процессов в ходе разработки программных приложений. Подробно описываются базовые понятия UML, необходимые для построения объектно-ориентированной модели системы с использованием графической нотации. Изложение сопровождается примерами разработки отдельных диаграмм, которые необходимы для представления информационной модели системы. Цель книги – помочь программистам освоить новую методологию разработки корпоративных программных приложений для последующего применения полученных знаний с использованием соответствующих CASE-инструментов.

Быстрые деньги в Интернете. 50 способов заработать, сидя дома у компьютера

В этой книге представлены 50 реальных, законных и быстрых способов заработать, имея под рукой только компьютер и доступ в Интернет. Вам не понадобятся вложения и специальные знания. Все советы даны в сжатом виде – только самое ценное, что действительно работает, без «воды».

По каждому из способов дана подробная пошаговая инструкция: что и как делать, в какой последовательности.

Вы сможете заработать деньги буквально в течение нескольких дней, вам надо лишь взять и сделать то, о чем написано в этой книге.

Вопрос и Ответ 42

Версия для печати

Вопросы и Ответы

42. Можно ли изменить величину табуляции в TMemo?

Можно. Для этого надо послать сообщение EM_SetTabStops компоненте TMemo, в котором необходимо указать два параметра. Количество передаваемых значений и величины табуляций.

Если первый параметр равняется нулю, то второй параметр игнорируется и величина табуляции сбрасывается в значение по умолчанию (32). Иначе, устанавливается величина указанная во втором параметре, причем, при единичном значении все величины табуляций будут равны, а при большем значении величины берутся из переданного массива.

Пример:

............

{Установка одной величины табуляции}
procedure TForm1.FormCreate(Sender: TObject);
CONST

TabInc: LongInt = 40;

begin

SendMessage(Memo1.Handle, EM_SetTabStops, 1, Longint(@TabInc));

end;

............

{Установка двух величин табуляции}
procedure TForm1.FormCreate(Sender: TObject);
CONST

TabInc: Array [1..2] of LongInt = (10, 30);

begin

SendMessage(Memo1.Handle, EM_SetTabStops, 2, Longint(@TabInc));

end;

............

...предыдущая страница следующая...
оглавление