Q&A

  • 저기.. 델파이에서 폼1에서 폼2로 연결..
어떻게하나요??

음.. 그걸모르겠어요 강의실에도 없고..음.. 좋은
답변부탁드립니다..
2  COMMENTS
  • Profile
    ^ㅡ^ 2003.10.13 19:24


    //버튼을 클릭했을때 발생시키면될꺼 같은데요.
      Form2:= TForm2.Create(Application);
      Form2.Show;

    허접한 답변입니다..
    즐코하세요
  • Profile
    Galaxy 2003.10.13 19:50
    안녕하세요.
    수고 많습니다.
    품1에서 품2 연결은 막연한 질문이라....
    님이 원하는것이 맞는지 모르겠습니다.
    참조만 하세요
    procedure TFStocksheet.ButtonClick(Sender: TObject);
    begin
    FRInq:=TFRInq.Create(Application);
    FRInq.FlatEdit1.text:=FlatEdit1.text;
    FRInq.Label4.caption:=Label45.caption;
    FRInq.DateEdit1.text:=DateEdit1.text;

    if (FReceiveInq.ShowModal=mrOk) then
      begin
      FlatEdit1.text:=FRInq.QTotal.FieldByNAme('Comp_Code').asstring;
      FlatComboBox1.Text:=FRInq.QTotal.FieldByNAme('Worker').asstring;
      Label45.caption:=CompFind(FlatEdit1.text);
      FlatEdit2.text:=FRInq.QTotal.FieldByNAme('Bill_No').asstring;
      DateEdit1.text:=DateDisplay(FRInq.QTotal.FieldByNAme('In_Date').asstring);
      end;
    FRInq.Free;
    end;

    그럼 수고 하세요