Q&A

  • 다른 폼의 객체 참조하는 방법???
implementation

uses U_recall0;

//생략

procedure TF_GR.RecallfromM0Click(Sender: TObject);
begin
        F_Recall0:=TF_Recall0.Create(self);
        F_Recall0.showmodal;
end;

위와같이 하고 Project/Option에 가서 AutoCreate Form을
Available Form 으로 이동한후

모달폼에 가서 다음과 같이 코딩했는데



unit U_recall0;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TF_recall0 = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_recall0: TF_recall0;

implementation

uses U_GR;

{$R *.DFM}

procedure TF_recall0.BitBtn1Click(Sender: TObject);
var
        dt:string;
begin
        dt:=#$1B+#$02+inttohex(26,2)+inttohex(0,4)+#$0D;
        U_GR.Edit1.text:=dt;
end;
end.


Edit1이 선언되어 있지 않다고 에러가 생김니다...
이것만으로는 부족한 것인가요?
1  COMMENTS
  • Profile
    홍성락 2002.08.27 05:44
    hsr/////////////////////////////////////////
    이부분에서요        U_GR.Edit1.text:=dt;
    유잇명이 아니라 폼명으로 하시면 될건데요
    F_GR.Edit1.text:=dt;