MDIChild에서 Normal 폼을 생성시켜서 MDIChild Form의 그리드내용을
참조하려고 하는데 에러가 발생합니다
답변 부탁드립니다.
MdiChild...
implementation
uses frmSample;
procedure TfrmTest.btnHelpClick(Sender: TObject);
begin
frmSample := TfrmSample.Create(Self);
// frmSample.edit1.Text := edit1.Text; <-- 이방법 말구요...
// Normal Form에서 입력한 사항을 MDIChild Form StringGrid에
// 계속 보여 주어야 합니다...
frmSample.ShowModal;
end;
Normal Form...
implementation
uses Test;
procedure TfrmSample.FormCreate(Sender: TObject);
begin
edit1.Text := frmTest.edit1.Text; <-- Error 발생!!!
end;
이부분에서요 Uses Test, MainMenu; <=== 메인폼 추가
이렇게 메인폼을 추가하시구요
이부문은 edit1.Text := TfrmTest(frmMainMenu.ActiveMDIChild).edit1.Text;
이렇게 수정하니까 잘되더군요....
이 방법 말구 다른방법이 있으면 리플부탁드립니다....