Текущий архив: 2012.04.08;
Скачать: CL | DM;

Вниз

создание объекта внутри своего отдельного юнита   Найти похожие ветки 

← →
tee_off   (2011-12-07 18:37) [0]

Всем доброго времени суток!

Пожалуйста, помогите с проблемой. Задача следующая:
- существует отдельный юнит, для определения моих собственных классов. Но проблема следующая: что нужно передатьв качестве параметра при вызове конструктора обьекта TMemo.

Заранее Благодарен!

---

← →
Омлет ©   (2011-12-07 18:51) [1]

Передать нужно компонент-владелец. AOwner: TComponent. Можно просто nil. А вот чтобы Memo где-то отображался, необходимо присвоить ему родителя (Parent) - какой-то оконный элемент-контейнер.

---

← →
Ega23 ©   (2011-12-07 19:18) [2]

1. Ты уверен, что нужно именно TMemo передать? Поясни проблему.
2.
TMyClass = class (TObject)
private
 FMemo: TMemo;
public
 constructor Create(aMemo: TMemo);
 procedure Foo;
end;

constructor TMyClass.Create(aMemo: TMemo);
begin
 inherited Create;
 if aMemo = nil then
   raise Exceptio.Create("Тра-ля-ля");
 FMemo := aMemo;
end;

procedure TMyClass.Foo;
var
 i: Integer;
begin
 with FMemo.Lines do
 begin
   BeginUpdate;
   try
      Clear;
      for i := 1 to 10 do
        Add(IntToStr(i));
   finally
     EndUpdate;
   end;  
 end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2012.04.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.009 c