Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.031 c
2-1129540485
kyn66
2005-10-17 13:14
2005.11.13
Программа со скинами


14-1129750882
romychk
2005-10-19 23:41
2005.11.13
ошибка при загрузке ноутбука "1702-smart hard drive detects immi"


2-1130079779
Вася
2005-10-23 19:02
2005.11.13
Свойсво DBGride


1-1130076984
Эксперт
2005-10-23 18:16
2005.11.13
А как сделать скролинг для TPanel как в TabControl?


14-1129960960
Starcom
2005-10-22 10:02
2005.11.13
Софтина для печати фотографий размером 3,5 на 4,5 мм!