wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 42 -> Версия для печати

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

Вопрос и Ответ 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;

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


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

Rambler's Top100