Текущий архив: 2005.11.13;
Скачать: CL | DM;
Вниз
Наследование Self Найти похожие ветки
← →
Dmitrich (2005-10-21 01:08) [0]Доброе суток, Мастера. Подскажить, как наследовать Self?
Например я хочу создать новую форму из собственной формы:
..
var
Form: TForm2;
..
procedure MyProc;
begin
..
form:=tform2.Create(self); // Почему он не видет Self и как это исправить
form.Show;
..
end;
← →
Джо © (2005-10-21 01:16) [1]То, что ты пишешь, никакого отношения к наследованию не имеет.
← →
evvcom © (2005-10-21 08:43) [2]Self - это неявно определенная переменная внутри методов класса, указывающая на экземпляр (объект) данного (дочернего) класса. В твоем случае MyProc - обычная процедура, в контексте которой Self не определена. Зачем тебе в данном случае Self? Напиши
form:=TForm2.Create(Application);, разве это не устроит?
← →
ЮЮ © (2005-10-21 09:48) [3]К тому же, вызвав MyProc дважды, поимеешь две разные формы и лишь одну переменную Form для доступа
Страницы: 1 вся ветка
Текущий архив: 2005.11.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
