Q&A

  • 다른폼에 자동create된 에디트 내용 넘기기
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;
0  COMMENTS