안냐세여?
메인 폼에서 버튼 클릭으로 서브 폼을 열었습니다.
서브 폼에선 메인 폼의 label.caption 에 나오는 내용을 설정하는
환경설정 폼입니다.
이렇게 설정을 한 뒤에 서브 폼에서 '적용' 버튼을 누르면 서브 폼이
닫아지고 (close;) 메인 폼의 화면이 바뀐 값으로 적용이 되야 하는데
적용이 되지 않습니다.
서브 폼의 '적용' 버튼을 누르면 다음과 같이
frmmain.label1.caption := '바꿀값';
이렇게 했는데 말이죠.....
이 방법이 아닌 듯 싶기도 하고....
frmmain.refrash; , update; 도 해 봤구여.... ㅋㅋㅋ...
조언을 부탁 드립니다.
일단 방법부터요
Procedure Tfrmmain.btnconfingClick(Sender : TObject)
begin
With Tsubform.Create(Self) do
begin
ShowModal;
Free
end;
end;
위의것은 기본이겠죠
Procedure Tsubform.btnok(Sender : TObject)
begin
Owner as Tfrmmain.label1.caption := '바꿀값';
end;
쉽죠 ^^