안녕하세여 꾸벅...
procedure TForm1.AS1Click(Sender: TObject);
var
a : Tform2;
begin
if not Assigned(form2) then
a := tform2.Create(Application);
a.Show;
a.top := 0;
a.left := 0;
요기서 저 넘 의 용도를 잘 멀겠네여..
제가 보기엔.. form2 에 저장된 값을 읽는거 같은데...
이것은 mdi 폼에서 버튼 클릭시에 다른 폼을 불러서 보여주는거거든여..
한번눌르면 아무런 이상이 없지만 두번눌르면 에러 메세지가 뜨네여..
좀 도와주세여 ㅜ.ㅜ..
mid 폼에 저 form2폼이 이미 실행이 되어있으면 맨위에 줄의 문장이 실행이
안되야 정상인거 같은데...그렇지 않은가봐요..좀 도와주십시요..꾸벅...
Form2는 TForm2의 인스턴스인데, TForm2가 해제될때 Form2가 nil이 되진 않거든요.
TForm2.OnFormCloseQuery 에서 caFree 액션을 주시고 Form2 := nil; 코드를 넣으세요.
그럼!
좀도와주세요 wrote:
> 안녕하세여 꾸벅...
>
> procedure TForm1.AS1Click(Sender: TObject);
> var
> a : Tform2;
> begin
> if not Assigned(form2) then
> a := tform2.Create(Application);
> a.Show;
> a.top := 0;
> a.left := 0;
> 요기서 저 넘 의 용도를 잘 멀겠네여..
> 제가 보기엔.. form2 에 저장된 값을 읽는거 같은데...
> 이것은 mdi 폼에서 버튼 클릭시에 다른 폼을 불러서 보여주는거거든여..
> 한번눌르면 아무런 이상이 없지만 두번눌르면 에러 메세지가 뜨네여..
> 좀 도와주세여 ㅜ.ㅜ..
> mid 폼에 저 form2폼이 이미 실행이 되어있으면 맨위에 줄의 문장이 실행이
> 안되야 정상인거 같은데...그렇지 않은가봐요..좀 도와주십시요..꾸벅...