Как сделать отступ в TMemo?

[XerSon]

Всем привет,
Делаю отступ в ТМемо
В обработчике формы onResize пишу сие:

var Rect: TRect;
begin
  SendMessage(Memo.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 10;
  Rect.Top:= 10;
  SendMessage(Memo.Handle, EM_SETRECT, 0, LongInt(@Rect));
  Memo.Refresh;
end;

Все ок!

Но как выполнить сей код для двух компонентов Мемо?

[Utkin]

А ты в обработчике сделай вызов функции, в которую помести данный код.
А в функции входящий параметр, ну что-то вроде этого:

MyFunc(MyMemo: TMemo);

И везде в твоем коде где встречается Memo замени на MyMemo.
В onResize будешь вызывать MyFunc(Memo1), потом MyFunc(Memo2) и т.д.

[XerSon]

Прошу меня извинить, но я не пойму как сделать сие:

А в функции входящий параметр, ну что-то вроде этого:
MyFunc(MyMemo: TMemo);

Если можно в примере, или более подробно?

[Utkin]

Это и есть пример.
Написал функцию, а затем

MyFunc(Memo1);
MyFunc(Memo2);

То есть в качестве параметра указываешь имя своего Memo

[XerSon]

написал так:

function OtstuPvMemo(var MyMemo: TMemo);
var Rect: TRect;
begin
  SendMessage(MyMemo.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 10;
  Rect.Top:= 10;
  SendMessage(MyMemo.Handle, EM_SETRECT, 0, LongInt(@Rect));
  MyMemo.Refresh;
end;

знаю что тупизм, и не правильно, что я не так описал?

нашел свою ошибку, сделал так:

function OtstuPvMemo(MyMemo: TMemo): TObject;
var Rect: TRect;
begin
  SendMessage(MyMemo.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 10;
  Rect.Top:= 10;
  SendMessage(MyMemo.Handle, EM_SETRECT, 0, LongInt(@Rect));
  MyMemo.Refresh;
  Result:= MyMemo;
end;

Спасибо, все ок!