Форум: "Прочее";
Текущий архив: 2012.04.08;
Скачать: [xml.tar.bz2];
Внизсоздание объекта внутри своего отдельного юнита Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c