Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.014 c
15-1323312036
Slider007
2011-12-08 06:40
2012.04.08
Поиск работы продолжается


15-1323231809
кирилл
2011-12-07 08:23
2012.04.08
для лисенка


8-1223297902
DoKi
2008-10-06 16:58
2012.04.08
directX SDK


3-1274100955
Tima
2010-05-17 16:55
2012.04.08
Вопрос по FIBScripter и fbclient.dll


15-1322771404
Юрий
2011-12-02 00:30
2012.04.08
С днем рождения ! 2 декабря 2011 пятница