Карта сайтаСсылкиКонтакты

Хостинг


Как установить поля в компоненте TMemo

PDF Печать
Статьи
Программирование на Delphi

Чтобы задать поля в компоненте TMemo, нужно отправить сообщение EM_SETRECT Memo и установить размер холста компонента.

Для примера, поместите один компонент TMemo (Memo1) и кнопку TButton (Button1) на форму Form1. Кнопка нужна лишь для того, чтобы наглядно увидеть изменения, когда будут установлены поля слева и справа.

Затем добавьте какой-нибудь текст в свойстве Lines компонента TMemo и запишите код, который находится ниже в событие OnClick кнопки Button1:


procedure TForm1.Button1Click(Sender: TObject);
 // устанавливаем отступы в Memo1
 var
   R: TRect;
   LeftMargin: integer;
   RightMargin: integer;
 begin
   LeftMargin:= 20;
   RightMargin:= 10;
   R:= Memo1.ClientRect;
   R.Left:= R.Left + LeftMargin;
   R.Top:= R.Top + 2;
   R.Bottom:= R.Bottom - 2;
   R.Right:= R.Right-RightMargin;
   SendMessage(Memo1.Handle, EM_SETRECT, 0, Longint(@R)) ;
 end;

 

Добавить комментарий


Защитный код
Обновить