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이 선언되어 있지 않다고 에러가 생김니다...
이것만으로는 부족한 것인가요?
이부분에서요 U_GR.Edit1.text:=dt;
유잇명이 아니라 폼명으로 하시면 될건데요
F_GR.Edit1.text:=dt;