Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi

Дата: 02.06.00


Как настроить табуляцию в компоненте TMemo?


Пошлите в Memo сообщение EM_SETTABSTOPS.
A> Например установим первую позицию табуляции на 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 do
   begin
       TabArray[i - 1] :=((PixelsX * i ) * 4) div DialogUnitsX;
   end;
   SendMessage(Memo1.Handle,
   EM_SETTABSTOPS,5,LongInt(@TabArray));
   Memo1.Refresh;
end;


Источник: Дельфи. Вокруг да около.


Чтобы вернуться оцените этот вопрос/ответ:
   

Прислать свои комментарии


Новое на сайте

Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо