음 저두 초보인데.. 예전에 경험한것 같아서 몇자 적을께요

아마 실행이 잘 될꺼에요
그런데 폼1에서 버튼을 눌렀을때는 에러 없이 폼2가 뜰꺼에요
그런데 폼2를 닫고 나서 다시 폼1의 버튼을 누르면 에러가 발생할겁니다.
프로그램을 작성할때 아무런 작업을 하지 않았다면...
님께서 만드신 폼은 이렇습니다.

1.폼1과 폼2를 만들었습니다.
2. 처음 프로그램이 실행될때는 폼1은 보이고 폼2는 보이지 않습니다.
3. 하지만 폼2도 보이지는 않지만 실행되어 떠있는 상태이지요
4. 그상태에서 폼1의 버튼을 눌러 폼2의 화면을 보여주길 원했기 때문에
   폼2가 화면에 보이는 겁니다.
5. 그런데 폼2를 닫고 나서 다시 실행하면 이제는 진짜 폼2가 없는거지요
6. 그런데 폼1에서 다시 폼2를 보여달라고 하닌깐  폼2를 찾을 수가 없어서
   액세스 바이올레이션 에러가 뜨는거구요..
7. 그래서 에러가 안 나게 억지로 만들며. 위에 분에 말씀하신데로 소스를
    아래와 바꿔서 한번 해보십시오..(단 이렇게 하면 버튼을 누를때 마다 폼이
   하나씩 생겨나지요)
8. 아래 예제는 억지로 에러를 없게 한거닌깐  참고만 하세요..
오늘도 즐코하시구요..  화이팅입니다.

procedure TForm1.Button1Click(Sender: TObject);
var
form2 : Tform2;
begin
form2 := TForm2.Create(Self);  <-- 폼2을 만든겁니다
form2.Show;
form2.panel1.visible := False;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
form2 : Tform2;
begin
form2 := TForm2.Create(Self);  
form2.Show;
form2.panel1.visible := True;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
close;   <--- 요넘을 잘 봐주세요
end;

지금 보니까...form2를 언제 create하죠?

create하는 부분이 없어서.. 에러가 나는듯 싶은데요

form2 := application.create(TForm2);
form2.show;

이렇게 하셔야될 거 같은데요.

그리고 마지막에 form2 := nil은 의미가 없는 거 같은데요..

close이벤트에서 action := cafree;가 이미 폼을 메모리에서 날려버리겠다는 건데.. 왜 다시 초기화를 하는지.. 그게 이해가 안가네요.


그리고 access violation 에러는 주로 초기화가 안됐을때 많이 나요.

참고하세요