Значения поля edit

[SERG1980]

не могу посмотреть картинку на работе. админы зарубили все эти заливалки. давайте выкладывайте проект сюда, посмотрим

[Sibedir]

При нажатии на кнопку на форме 1

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
form1.Free; // Убаваете форму 1
end;

А при нажатии на кнопку на форме 2

     x:=strtoint(form1.edit1.text); // Обращаетесь к компонентам убитой формы

Сделайте так

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
form1.Hide;
end;

и будет вам счастье

[glazik]

Вот спасибо даже не могу подумать что free убивает форму, думал что close убивает СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!

[_Den_1984]

не успел :-)

[Sibedir]

Free - свободный, т.е. освобождает память, говоря попростому, уничтожает объект (а точнее вызывает процедуру Destroy - Уничтожить).
Другого назначения Free в ООП я не знаю.

[glazik]

))) спасибо еще раз огромное, есть такой еще вопрос. Хочу чтоб изначально форма открывалась на фулл скрин, а следующая форма после
form2.show открывалась тоже на фулл скрин, подскажите плиз...

[Samkoff]

В свойствах нужной тебе формы WindowState ставишь на wsMaximized и будет тебе счастье

[glazik]

вот балин((((

var
k,n:integer;
mass1:array [1..255] of tlabel;
begin
k:=strtoint(form1.edit1.text);
for n:=1 to k do
mass1[n]:=Tlabel.create(form2);
mass1[n].parent:=form2;
mass1[n].font.size:=20;
mass1[n].Width:=50;
mass1[n].Caption:=inttostr(n);
mass1[n].left:=300+n*80;
end;

выдает ошибку что за фигня все вроде ок?((((

[glazik]

For-Loop variable <Имя> may be undefined after loop. Попытка использования значения параметра For-цикла после завершения этого цикла.

вот эту((

[Sibedir]

for n:=1 to k do begin
...
end;