Q&A

  • mdi 질문입니다.(자료 참조좀 됐으면..)
여러번 답을 찾아 헤메다 결국 이렇게 글을 올려보내요.



제가 폼을 3개를 parent폼 -> child1폼 -> child2폼

(form1) (form2) (form3)

설정했습니다..그러니까 form1 에서 form2를 불러오고

form2 에서 form3를 불러 옵니다.

그리고 다시 form3에서 검색한 자료를 form2에 올려 놓을 려구 합니다.



form2유닛의 uses 절에 form3의 유닛을 첨가하고 form3의 유닛의 uses절에 form2의 유닛을 첨가했습니다.

form2에서 form3를 불러올때



procedure Tform2.button1Click(Sender: TObject);

var

mBoolean :boolean;

i : integer;

begin

mboolean := false;



For i :=0 to MDIChildCount -1 do

if MDIChildren[i] is tform3 then begin

mdichildren[i].show;

mboolean := true;

end;



이런식으로 불러 오고 form3에서 자료를 검색하고 난 다음 그자료를 form2의 edit1에

갈수 있도록



precedure Tform3.button1click(sender : Tobject);

begin

form2.edit1.text := "검색한 자료" 또는 "아무거나";

end;



해주고 바로 close 되면서 action :=cafree; 처리를 해주었습니다.



T.T그런데 자꾸 막히는 부분은 form3의 자료를 form2의 내용을 참조하려고 할때

(form3의 button1를 클릭했을때)

violation 에러가 납니다..

답변해주면 정말 고맙겠습니다.







0  COMMENTS