Q&A
- 폼 동적 생성과 해제에 대한 질문
동적으로 생성할 폼을 avaliable form 으로 지정하고
그 폼을 생성할때
try
Form2 := TForm2.Create(Self);
Form2.ShowModal;
finally
Form2.Free;
end;
이런 식으로 생성을 하고 해제를 합니다.
그런데.. 폼이 생성 되어 있는 아닌지를 알기 위해
if Form2 <> Nil Then showmessage('폼이 생성 되어 있습니다');
( if Assigned(Form2) Then Showmessge('... '); )
이렇게 했는데.. 위의 폼을 생성을 한번도 하지 않았을 때에는 if문에 걸리지 않지만.
한번 생성을 하고 폼을 닫은 다음에.. 테스트를 해보면..
폼을 닫았는데도 showmessage가 나옵니다.
분명히 해제를 했는데 왜 이런지....
체크하는 다른 방법이 있는 건지...
그 폼을 생성할때
try
Form2 := TForm2.Create(Self);
Form2.ShowModal;
finally
Form2.Free;
end;
이런 식으로 생성을 하고 해제를 합니다.
그런데.. 폼이 생성 되어 있는 아닌지를 알기 위해
if Form2 <> Nil Then showmessage('폼이 생성 되어 있습니다');
( if Assigned(Form2) Then Showmessge('... '); )
이렇게 했는데.. 위의 폼을 생성을 한번도 하지 않았을 때에는 if문에 걸리지 않지만.
한번 생성을 하고 폼을 닫은 다음에.. 테스트를 해보면..
폼을 닫았는데도 showmessage가 나옵니다.
분명히 해제를 했는데 왜 이런지....
체크하는 다른 방법이 있는 건지...
2
COMMENTS
-
-
최명관 wrote:
> 동적으로 생성할 폼을 avaliable form 으로 지정하고
>
> 그 폼을 생성할때
>
> try
> Form2 := TForm2.Create(Self);
> Form2.ShowModal;
> finally
> Form2.Free;
> end;
>
> 이런 식으로 생성을 하고 해제를 합니다.
>
> 그런데.. 폼이 생성 되어 있는 아닌지를 알기 위해
>
> if Form2 <> Nil Then showmessage('폼이 생성 되어 있습니다');
> ( if Assigned(Form2) Then Showmessge('... '); )
>
> 이렇게 했는데.. 위의 폼을 생성을 한번도 하지 않았을 때에는 if문에 걸리지 않지만.
>
> 한번 생성을 하고 폼을 닫은 다음에.. 테스트를 해보면..
>
> 폼을 닫았는데도 showmessage가 나옵니다.
>
> 분명히 해제를 했는데 왜 이런지....
>
> 체크하는 다른 방법이 있는 건지...
>
>
>
Form2.Free;
를 하고난 뒤에 Form2가 nil이 되는지 확인해 보시면 알텐데....
From http://www.azurei.com
(NOTICE) You must be logged in to comment on this post.
-
- 장민우
- 2000.11.15 01:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 이방인
- 2000.11.15 01:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 이용
- 2000.11.15 01:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민석(델초보)
- •
- 2000.11.15 00:56
- 6 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.15 00:56
-
김민석(델초보)•2000.11.15 18:13
-
김일영•2000.11.15 18:14
-
김민석(델초보)•2000.11.15 02:47
-
김일영•2000.11.15 04:16
-
김민석(델파이 초보)•2000.11.15 08:01
-
-
AONE•2000.11.15 02:04정확한 답변인지 모르지만....LOCATE 를 사용하시면 찾을수 있을것 같은데... 초보왕 wrote: > 델 초보...
-
-
- 초보자
- •
- 2000.11.14 23:16
- 1 COMMENTS
- /
- 0 LIKES
-
Azurei•2000.11.15 02:57초보자 wrote: > 한 RichEdit에서 한 라인당 80Byte가 입력이 되면 자동으로 > 다음 라인으로 가게끔 할...
-
- 강은영
- •
- 2000.11.14 22:42
- 2 COMMENTS
- /
- 0 LIKES
-
won•2000.11.15 05:27우선은 ADO를 테스트해보고, 완벽하게 이해하시기 바랍니다. CursorType, LockType을요.. 정답은 가까운 ...
-
AONE•2000.11.15 02:09정확한 답변인지는 모르지만... 첫번째 테이블락을 설정하는 방법 두번째 등록, 수정, 삭제시 해당 테이...
-
- 초보자
- 2000.11.14 22:33
- 0 COMMENTS
- /
- 0 LIKES
-
- castle road
- •
- 2000.11.14 22:08
- 2 COMMENTS
- /
- 0 LIKES
-
이용희•2000.11.16 19:46castle road wrote: > 볼랜드 BDE 관리자(Admin...) configuration 탭에서 > [-]Configuration > [-...
-
박인우•2000.11.15 17:58음 제생각에는 혹시 윈98에 오라클 클라이언트를 설치 하셨나요? 확실한 답변은 아니지만 저는 아직 한...
-
- 최명관
- •
- 2000.11.14 22:01
- 2 COMMENTS
- /
- 0 LIKES
동적으로 생성할 폼을 avaliable form 으로 지정하고 그 폼을 생성할때 try Form2 := TForm2.Create(Self); Form2.ShowModal; finally Form2.Free; end; 이런 식으로 생성을 하고 해제를 합니다. 그런데.. 폼이 생성 되어 있는 아닌지를 ...-
최진환•2000.11.15 03:14최명관 wrote: > 동적으로 생성할 폼을 avaliable form 으로 지정하고 > > 그 폼을 생성할때 > >...
-
Azurei•2000.11.15 01:00최명관 wrote: > 동적으로 생성할 폼을 avaliable form 으로 지정하고 > > 그 폼을 생성할때 > >...
-
- 바보감자
- •
- 2000.11.14 21:50
- 3 COMMENTS
- /
- 0 LIKES
-
바보감자•2000.11.14 23:01이야.... 정말 되넹 ㅜ.ㅜ흑흑 정말 감사하구여 select a, max(b) from xxx group by a 이거 다른...
-
공성환•2000.11.14 21:55select a, max(b) from xxx group by a 하면 님이 원하시는 답변이 될것같습니다... 지금 3개의 로...
-
Azurei•2000.11.14 21:52바보감자 wrote: > 안냐세염~~~~~~~~~~~~~~~ > 바보감자입니당... > 여러분.. 제가 궁금한게 있어서염. ...
-
-
Azurei•2000.11.14 21:50임성룡 wrote: > 안녕하세요...다름이 아니라 > 버튼의 이벤트 처리를 하는데.... > 계속 누르고 있었...
-
-
- 델러브
- •
- 2000.11.14 21:52
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2000.11.14 21:57예전에 제가 코디으로 무식하게 한적있는데... 검색해보세요... 소스도 올렸습니다... 델러브 wrote: > ...
-
- youngae
- •
- 2000.11.14 20:11
- 4 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.11.14 20:15안녕하세여.. 타락임다.. ^^ 라인에 넣는게 16바이16 또는 32바이32 를 넣는건가여? 아님, 유저디파...
-
youngae•2000.11.14 23:19타락천사 wrote: > 안녕하세여.. 타락임다.. ^^ > > 라인에 넣는게 16바이16 또는 32바이32 를 넣는건...
-
타락천사•2000.11.15 02:19안녕하세여.. 타락임다..^^ 아래와 가치 하면 됩니다.. procedure TMainForm.Button2Click(Sender: T...
-
youngae•2000.11.15 05:24아 ~~~ 감동 감동 정말 감사합니다.... 헤헤 근데 지금 저희 멜 서버가 죽어버렸어요..낼이나 돼야 확인...
-
- 꼴통
- 2000.11.14 19:56
- 0 COMMENTS
- /
- 0 LIKES
-
- cell
- •
- 2000.11.14 19:54
- 2 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.11.14 22:40cell wrote: > LOC_NO W REPAIR_D EMP_CO MACHIN BAD_CO CHK_QTY > ------ - -------- ------- ----...
-
공성환•2000.11.14 22:04데이타 베이스가 오라클이면 인라인뷰와 디코더를 이용해서 표현하실수 있습니다... 보통이런거를 짜빠트...
-
- 엑소
- 2000.11.14 19:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민희
- •
- 2000.11.14 19:00
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.11.14 20:12안녕하세여. 타락임다..^^ 팁모아에 제가 올려놓은 글이 있습니다... "타락천사"로 검색해 보세여.. ...
-
coolling•2000.11.14 20:03자료실이나 강의실에 가면, 실력있는 고수님들이 만들어놓은 시간/날짜 계산 프로그램 소스가 있을겁니다.....
-
- 김하늘
- •
- 2000.11.14 18:59
- 3 COMMENTS
- /
- 0 LIKES
-
어이! 허준•2000.11.14 20:10버퍼 전송시 4096정도가 안정적 입니다. 8192정도로 하면 패킷을 잃어버리는 경우가 생겨서 전송 Block을 ...
-
김하늘•2000.11.15 00:26허준의원 나리 답변 감사요... 그럼 4배는 뛸수 있겠네요... 어이! 허준 wrote: > 버퍼 전송시 4096...
-
이경문•2000.11.19 14:40참고..... TCP/IP로 패킷을 전송하는 방법에는 크게 두가지가 있습니다. 첫번째 방법(안정적인 방법) ...
-
- 이창섭
- 2000.11.14 18:47
- 0 COMMENTS
- /
- 0 LIKES
> 동적으로 생성할 폼을 avaliable form 으로 지정하고
>
> 그 폼을 생성할때
>
> try
> Form2 := TForm2.Create(Self);
> Form2.ShowModal;
> finally
> Form2.Free;
> end;
>
> 이런 식으로 생성을 하고 해제를 합니다.
>
> 그런데.. 폼이 생성 되어 있는 아닌지를 알기 위해
>
> if Form2 <> Nil Then showmessage('폼이 생성 되어 있습니다');
> ( if Assigned(Form2) Then Showmessge('... '); )
>
> 이렇게 했는데.. 위의 폼을 생성을 한번도 하지 않았을 때에는 if문에 걸리지 않지만.
>
> 한번 생성을 하고 폼을 닫은 다음에.. 테스트를 해보면..
>
> 폼을 닫았는데도 showmessage가 나옵니다.
>
> 분명히 해제를 했는데 왜 이런지....
>
> 체크하는 다른 방법이 있는 건지...
>
>
>
일단 폼과같은 객체는 직접 Free를 부르시지 않는것이 좋습니다.
폼에선는 Free를 직접 부르시지 말고 Release를 부르시기 바랍니다.
그 이유는 Help를 참조하시구요...
Release를 했다면 명시적으로 폼객체에 nil을 해 주시는것이 좋을듯하네요...
어떤 객체를 사용했다면 그것을 해제한 후에라도 명시적으로 nil을 해주시는것이
여러모로 (특히 정신적으로) 이득이 있답니다..