|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
передача параметра в конструкторе
всем привет
при создании второй формы, из первой передаются параметры в первой форме при вызове Код:
if (not Assigned(form2)) then form2:=Tform2.Create(1); form2.show; во второй Код:
type TForm2 = class(TForm) .... private { Private declarations } r: shortint; public { Public declarations } constructor create(rezhim: shortint); end; implementation {$R *.dfm} uses Unit1; constructor TForm2.create(rezhim: shortint); begin inherited create(nil); r:=rezhim; end; все работает, но предупреждение Method 'Create' hides virtual method of base type 'TCustomForm' подскажите, пожалуйста, все ли я делаю верно? и куда девается родной Self при создании? и почему Код:
inherited create(nil); код стянул с какого-то форума, сейчас пытаюсь осмыслить че к чему в гугле искал, нифига не понял разжуйте и разложите по полочкам, будьте добры? Я за здоровый экстрим! Спасибо за "спасибо") |
#2
|
||||
|
||||
Код:
type TForm2 = class(TForm) private { Private declarations } public { Public declarations } constructor Create(TickCount: Integer); reintroduce; overload; constructor Create(AOwner: TComponent; TickCount: Integer); reintroduce; overload; end; var Form2: TForm2; implementation {$R *.dfm} constructor TForm2.Create(TickCount: Integer); begin inherited Create(Application); Caption:=IntToStr(TickCount); end; constructor TForm2.Create(AOwner: TComponent; TickCount: Integer); begin inherited Create(AOwner); Caption:=IntToStr(TickCount); end; использование: Код:
if not Assigned(Form2) then Form2:=TForm2.Create(GetTickCount); Form2.Show; либо: Код:
if not Assigned(Form2) then Form2:=TForm2.Create(Self, GetTickCount); Form2.Show; см. в справке reintroduce и overload (в случае 2-х конструкторов) Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 28.10.2013 в 08:40. |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Mrak (28.10.2013)
|
#3
|
||||
|
||||
спасибо!
вот посмотрел и почему-то все сразу понял Я за здоровый экстрим! Спасибо за "спасибо") |