form1에있는 콤보박스에 선택된 값만큼 form2에 에디트를 자동으로 뿌려 줍니다... 근데... form2에 뿌려준 에디트에 써지는 값들을... 어케 가지고 있져???
ㅡㅡ; form2에 자동으로 create된 에디트들에 적어질 값들을... 넘겨주질 못하겠어여...
출력물에..form1의 값들과 form2의 값들을 찍어 줘야 하는데... ㅠ.ㅜ
form1의 내용들은 잘넘겨 지는데.. form2의 내용은 자동 create되는 에디트들이라.. 값을 어떻해 해야 할지 모르겠어여...
넘 넘 어려버여...
아래 소스는 form2에 에디트들을 자동create해주는 소스입니다..
고수님들~~~~~~~ 플리즈~~~~~~~~~~~~~~~~~~ ㅠ.ㅜ
procedure TfrmMnuF1_5.BitBtn1Click(Sender: TObject);
var
i : integer;
begin
inherited;
if ComboBox3.text = '선택' then
begin
MessageDlg('추가갯수를 선택후 추가하세요!!', mtWarning, [mbOK], 0);
ComboBox3.SetFocus;
end
else
begin
Application.CreateForm(TfrmMnuF1_5P, frmMnuF1_5P);
frmMnuF1_5P.show;
for i := 1 to StrToInt(ComboBox3.Text) do
begin
with TEdit.Create(frmMnuF1_5P) do
begin
Name := 'TmpEdit'+FormatFloat('00',i);
text := '';
Visible := True;
Parent := frmMnuF1_5P;
Top := i*20;
Left := 110;
width := 297;
end;
with Tlabel.Create(frmMnuF1_5P) do
begin
Name := 'Tmplabel'+FormatFloat('00',i);
caption := '건물의 표시'+inttostr(i + 2);
Visible := True;
Parent := frmMnuF1_5P;
Top := (i*20+4);
Left := 20;
width := 85;
end;
frmMnuF1_5P.Width := 500;
frmMnuF1_5P.Height := (85 + (i*30));
frmMnuF1_5P.BitBtn1.Top := (35 + (i*20));
frmMnuF1_5P.BitBtn6.Top := (35 + (i*20));
frmMnuF1_5P.BitBtn2.Top := (35 + (i*20));
end;
end;