Q&A
- 꼭 좀 도와 주세요..제발..고수님들(동적생성)
안녕하세요...
꼭 좀 도와 주세요...
폼1의 버튼을 누르면 폼2가(show)가 나타납니다...
그리고 폼2의 버튼9개를 클릭시 폼3이 동적으로 생성됩니다..(modal)
동적으로 생성된 폼3에 동적으로 생성된 버튼이 폼3을 종료시키는 역할을 하는데..
여기서 에러가 납니다..
ivalid pointer.....
소스는 다음과 같음....
동적으로 생성된 폼과 콤보박스, 버튼
procedure Tfrm_cate2.FormActivate(Sender: TObject);
var
r:trect;
i:integer;
begin
for i:=0 to frm_edit.slist[inx].count do begin
setlength(mycheckbox,frm_edit.slist[inx].count);
mycheckbox[i]:=Tflatcheckbox.create(frm_cate2);
mycheckbox[i].OnClick:=mycheckboxonclick;
with mycheckbox[i] do
if i=0 then begin
caption :='All of the below ';
parent :=frm_cate2;
Transparent:=true;
layout:=checkboxRight;
left:=1;
top:=1 ;
height:=13;
width:=101;
show;
end
else if i<>0 then
begin
layout:=checkboxRight;
caption :=frm_edit.slist[inx].strings[i-1];
parent :=frm_cate2;
Transparent:=true;
left:=1;
top:= mycheckbox[i-1].top + mycheckbox[i-1].height;
height:=13;
width:=101;
//cursor:=crhandpoint;
show;
end;
end;
//end;
//onclick := mycheckboxclick;
mybutton:=ttransparentbutton.create(frm_cate2);
with mybutton do begin
caption:=' O K';
parent:=frm_cate2;
left:=1;
top:= mycheckbox[frm_edit.slist[inx].count].top+mycheckbox [frm_edit.slist[inx].count].height;
height:=13;
width:=101;
show;
onclick := mybuttonclick;
end;
frm_cate2.Height:=13*(frm_edit.slist[inx].count+2);
frm_cate2.ClientHeight:=13*(frm_edit.slist[inx].count+2);
end;
procedure Tfrm_cate2.mybuttonclick(sender : tobject);
begin
//free;
frm_cate2.close;
end;
꼭 좀 도와 주세요...
폼1의 버튼을 누르면 폼2가(show)가 나타납니다...
그리고 폼2의 버튼9개를 클릭시 폼3이 동적으로 생성됩니다..(modal)
동적으로 생성된 폼3에 동적으로 생성된 버튼이 폼3을 종료시키는 역할을 하는데..
여기서 에러가 납니다..
ivalid pointer.....
소스는 다음과 같음....
동적으로 생성된 폼과 콤보박스, 버튼
procedure Tfrm_cate2.FormActivate(Sender: TObject);
var
r:trect;
i:integer;
begin
for i:=0 to frm_edit.slist[inx].count do begin
setlength(mycheckbox,frm_edit.slist[inx].count);
mycheckbox[i]:=Tflatcheckbox.create(frm_cate2);
mycheckbox[i].OnClick:=mycheckboxonclick;
with mycheckbox[i] do
if i=0 then begin
caption :='All of the below ';
parent :=frm_cate2;
Transparent:=true;
layout:=checkboxRight;
left:=1;
top:=1 ;
height:=13;
width:=101;
show;
end
else if i<>0 then
begin
layout:=checkboxRight;
caption :=frm_edit.slist[inx].strings[i-1];
parent :=frm_cate2;
Transparent:=true;
left:=1;
top:= mycheckbox[i-1].top + mycheckbox[i-1].height;
height:=13;
width:=101;
//cursor:=crhandpoint;
show;
end;
end;
//end;
//onclick := mycheckboxclick;
mybutton:=ttransparentbutton.create(frm_cate2);
with mybutton do begin
caption:=' O K';
parent:=frm_cate2;
left:=1;
top:= mycheckbox[frm_edit.slist[inx].count].top+mycheckbox [frm_edit.slist[inx].count].height;
height:=13;
width:=101;
show;
onclick := mybuttonclick;
end;
frm_cate2.Height:=13*(frm_edit.slist[inx].count+2);
frm_cate2.ClientHeight:=13*(frm_edit.slist[inx].count+2);
end;
procedure Tfrm_cate2.mybuttonclick(sender : tobject);
begin
//free;
frm_cate2.close;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보
- 2000.11.16 19:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 꼴통
- •
- 2000.11.16 19:38
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2000.11.16 22:15델파이 수퍼페이지에서 scroll로 한번 찾아보시면 소스 많습니다. 혹은 www.torry.net에도 꽤 많은것으로 ...
-
- 열시미
- 2000.11.16 19:24
- 0 COMMENTS
- /
- 0 LIKES
-
- young
- •
- 2000.11.16 19:04
- 1 COMMENTS
- /
- 0 LIKES
-
한하눌•2000.11.16 20:46young wrote: > 초보라서 그러는데요...... > 인쇄할때 페이지헤더를 두번째장부터 나오게 하려면 > 어...
-
- 기다려라 델
- 2000.11.16 18:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.11.16 18:10
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요... 꼭 좀 도와 주세요... 폼1의 버튼을 누르면 폼2가(show)가 나타납니다... 그리고 폼2의 버튼9개를 클릭시 폼3이 동적으로 생성됩니다..(modal) 동적으로 생성된 폼3에 동적으로 생성된 버튼이 폼3을 종료시키는 역할을 하는...-
이채성•2000.11.16 18:16프로그램을 열심히 봤는데 주석이 없으니까 잘 알수 없네요. 제 경험으로는 이런 경우 흔히 폼3이 Close...
-
- 김명호
- 2000.11.16 17:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보맨
- •
- 2000.11.16 16:39
- 3 COMMENTS
- /
- 0 LIKES
-
이채성•2000.11.16 18:09ms-word프로그램을 Automation서버로 이용하여 저장하시면 어떨까요? 초보맨 wrote: > 안녕하세요...초보...
-
강경희•2000.11.16 22:12헤헤... 질문좀... 오토맨션 써버는 어떤건지.. 궁금합니다... 자세한 설명을 부탁드립니다.
-
이채성•2000.11.16 22:18후후.. 이건 굉장히 복잡한데요.. 데모에 ActiveX에 OleAuto를 참조하시지요.. 항상 솔루션이 먼데 있지...
-
- 강경희
- •
- 2000.11.16 15:52
- 3 COMMENTS
- /
- 0 LIKES
-
이채성•2000.11.16 18:12리스트뷰의 경우 동적으로 생성하는 게 올바릅니다. 그렇게 하시면 속도도 빨라지고 1,000,000개도 하실 ...
-
강경희•2000.11.16 21:00*^^* 먼저 답변 감사합니다. ^^; 동적으로 만들면 된다구요.... 헤헤... 그런데 동적으로 만드는 방...
-
이채성•2000.11.16 22:12델파이 데모에 VirtualListView라구 있어요 거기서 보면 procedure TForm1.ListViewData(Sender: TObje...
-
- 김성은
- •
- 2000.11.16 10:59
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.16 11:02http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mode=read&num=31380&db=newqa&backdepth=1
-
- 최지수
- •
- 2000.11.16 10:53
- 1 COMMENTS
- /
- 0 LIKES
-
허춘•2000.11.16 15:01최지수 wrote: > 이것은 가능한지요 > 답변좀 꼭 부탁드립니다. > > 차일드폼 1, 2, 3, 4, 여러개의 ...
-
- 임하나
- •
- 2000.11.16 10:51
- 8 COMMENTS
- /
- 0 LIKES
-
권영길•2000.11.16 21:03
-
임하나•2000.11.17 01:58
-
허춘•2000.11.16 12:52
-
임하나•2000.11.16 14:06
-
허춘•2000.11.16 14:59
-
임하나•2000.11.16 19:53
-
허춘•2000.11.17 08:32
- • • •
-
- 이성윤
- •
- 2000.11.16 09:01
- 6 COMMENTS
- /
- 0 LIKES
-
이성윤•2000.11.16 09:55답변 주신 두분 모두 감사드립니다. 밤도 늦었는데... 헌데 첫번째 답변 주신분 말씀대로 그 이벤트...
-
이성윤•2000.11.17 00:01error message는 이렇게 뜨네요. Project Project2.exe raised exception class EsocketError with mes...
-
김상호•2000.11.17 05:55아래 에러코드에 의하면 11001 은 서버를 찾을수 없다고 한것 같은데 ASync Lookup 이라고 한것을 보면 전...
-
이성윤•2000.11.17 19:34잊지않고 답변주심 점 거듭 감사드립니다. 답변주신대로 제 아마 그렇게 컴퓨터가 예외를 발생시켰는지 ...
-
권민홉•2000.11.16 09:22이성윤 wrote: > ClientSocket을 가지고 작업중인데 > 한가지 문제가 있습니다. > 인터넷 연결이 않된 ...
-
김상호•2000.11.16 09:13만약 네트워크에 Tcp/ip를 설정하지 않았다면 에러가 생길수 있습니다. 네트워크등록정보에서 TCP/IP를을 ...
-
- 왕초보
- •
- 2000.11.16 10:56
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.16 10:59안녕하세요. 델파이 팁모아에서 'binary'로 검색하면 제일 처음에 아래와 같은 심동훈님의 팁이 나오는...
-
- 한병화
- •
- 2000.11.16 08:34
- 2 COMMENTS
- /
- 0 LIKES
-
천석우•2000.11.16 21:25dbms수준에서 해결하심이.... 원하시는 대답이 될지는 의문이구요.... 혹시 님께서 oracle이나 mssqlserve...
-
linuxwiz•2000.11.16 18:391. 한번만 하면 될때... 디비가 몬지모르지만..(이런건 써주야 함다..^^;) import, export 아님 ...
-
- 두깡이
- •
- 2000.11.16 11:01
- 1 COMMENTS
- /
- 0 LIKES
-
흐르는산•2000.11.16 11:01두깡이 wrote: > 안녕하세요.. > 지금..쫌..급해서..그런데여..소스좀..봐주세여.. > > procedure TFo...
-
- 이성윤
- •
- 2000.11.16 10:49
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.16 10:49보이고 싶지 않은 속성은 다음과 같이 합니다. class A에서 property P: Integer ... 이런 것이 있을 경우...
-
이성윤•2000.11.17 05:58답변 감사드립니다. 어제 새벽에 글을 올렸는데 바로 답변을 주셨군요. 헌데,잘 않되네요. 현재 제...
-
-
Mr.Q•2000.11.16 09:07혹시.. 비슷한 질문을 다른곳에 올리신분 아니신가요? var tmp:String; procedure TForm2.Timer...
-
-
- 김희진
- •
- 2000.11.16 07:48
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.16 08:00안녕하세요. 요즘 이곳에선 그냥 소스 주세요~ 하시는 분들께 좀 냉랭한 분위기였습니다. 제 탓(?)이 크...
-
Mr.Q•2000.11.16 07:49김희진 wrote: > 안녕하십니까? > 저는 경남 마산에서 대학을 다니고 있는 학생입니다 > 제가 이번에 델...
-
- 방문현
- 2000.11.16 07:00
- 0 COMMENTS
- /
- 0 LIKES
제 경험으로는 이런 경우 흔히
폼3이 Close되는 데 다른 곳에서 폼3의 컴포넌트를 참조하고 있거나
하는 경우였습니다.
폼3이 Close될때를 추적해 보시는 게 어떨까 하는데요..
왕초보 wrote:
> 안녕하세요...
> 꼭 좀 도와 주세요...
> 폼1의 버튼을 누르면 폼2가(show)가 나타납니다...
> 그리고 폼2의 버튼9개를 클릭시 폼3이 동적으로 생성됩니다..(modal)
> 동적으로 생성된 폼3에 동적으로 생성된 버튼이 폼3을 종료시키는 역할을 하는데..
> 여기서 에러가 납니다..
> ivalid pointer.....
>
> 소스는 다음과 같음....
>
> 동적으로 생성된 폼과 콤보박스, 버튼
> procedure Tfrm_cate2.FormActivate(Sender: TObject);
> var
> r:trect;
> i:integer;
> begin
> for i:=0 to frm_edit.slist[inx].count do begin
> setlength(mycheckbox,frm_edit.slist[inx].count);
> mycheckbox[i]:=Tflatcheckbox.create(frm_cate2);
> mycheckbox[i].OnClick:=mycheckboxonclick;
> with mycheckbox[i] do
> if i=0 then begin
> caption :='All of the below ';
> parent :=frm_cate2;
> Transparent:=true;
> layout:=checkboxRight;
> left:=1;
> top:=1 ;
> height:=13;
> width:=101;
> show;
>
> end
> else if i<>0 then
> begin
> layout:=checkboxRight;
> caption :=frm_edit.slist[inx].strings[i-1];
> parent :=frm_cate2;
> Transparent:=true;
> left:=1;
> top:= mycheckbox[i-1].top + mycheckbox[i-1].height;
> height:=13;
> width:=101;
> //cursor:=crhandpoint;
> show;
> end;
> end;
> //end;
> //onclick := mycheckboxclick;
> mybutton:=ttransparentbutton.create(frm_cate2);
> with mybutton do begin
> caption:=' O K';
> parent:=frm_cate2;
> left:=1;
> top:= mycheckbox[frm_edit.slist[inx].count].top+mycheckbox [frm_edit.slist[inx].count].height;
> height:=13;
> width:=101;
> show;
>
> onclick := mybuttonclick;
> end;
> frm_cate2.Height:=13*(frm_edit.slist[inx].count+2);
> frm_cate2.ClientHeight:=13*(frm_edit.slist[inx].count+2);
>
> end;
>
>
> procedure Tfrm_cate2.mybuttonclick(sender : tobject);
> begin
> //free;
> frm_cate2.close;
> end;
>