Q&A
- Panel를 배열선언하여 사용시 문제...해결을 부탁합니다..
private
{ Private declarations }
Panel1 : array of array of TPanel;
Panel2 : array of array of TPanel;
Panel3 : array of array of TPanel;
Panel4 : array of TPanel;
------------------------------------------
조건에 따라서 주려고 합니다....
Panel1[I,J].Height := Height;
Panel1[I,J].Width := Width;
Panel1[I,J].Top := Top + ((Height+RowSpace) * I);
Panel1[I,J].Left := Left + ((Width+ColSpace) * J);
Panel1[I,J].BevelInner := bvRaised;
Panel1[I,J].BevelOuter := bvRaised;
Panel1[I,J].Name := 'AU';
Panel1[I,J].OnClick := 1Click;
Panel1[I,J].Parent := PanelArg;
문제는 이것이 생성이 되어 있는 지 안되었는지를 체크 하려구 합니다..
IF (Panel1[I,J].Visible = FALSE) and (Panel2[I,J].Visible = FALSE) and
(Panel3[I,J].Visible = FALSE) and (Panel4[I].Visible = FALSE) then
begin
Application.MessageBox('확인하시기 바랍니다!',
'주의',MB_ICONEXCLAMATION);
Exit;
end;
Panel이 없기 때문에 에러가 나는데 해결 방법을 모르겠습니다..
에러:"Access violation at address 0041FA1B in module"
해결을 부탁 합니다...꼭...
{ Private declarations }
Panel1 : array of array of TPanel;
Panel2 : array of array of TPanel;
Panel3 : array of array of TPanel;
Panel4 : array of TPanel;
------------------------------------------
조건에 따라서 주려고 합니다....
Panel1[I,J].Height := Height;
Panel1[I,J].Width := Width;
Panel1[I,J].Top := Top + ((Height+RowSpace) * I);
Panel1[I,J].Left := Left + ((Width+ColSpace) * J);
Panel1[I,J].BevelInner := bvRaised;
Panel1[I,J].BevelOuter := bvRaised;
Panel1[I,J].Name := 'AU';
Panel1[I,J].OnClick := 1Click;
Panel1[I,J].Parent := PanelArg;
문제는 이것이 생성이 되어 있는 지 안되었는지를 체크 하려구 합니다..
IF (Panel1[I,J].Visible = FALSE) and (Panel2[I,J].Visible = FALSE) and
(Panel3[I,J].Visible = FALSE) and (Panel4[I].Visible = FALSE) then
begin
Application.MessageBox('확인하시기 바랍니다!',
'주의',MB_ICONEXCLAMATION);
Exit;
end;
Panel이 없기 때문에 에러가 나는데 해결 방법을 모르겠습니다..
에러:"Access violation at address 0041FA1B in module"
해결을 부탁 합니다...꼭...
3
COMMENTS
-
-
kylix wrote:
> 먼저 Panel1[I, J]가 nil인가를 판단을 하세요.
>
> if Panel1[I, J] <> nil then // 판넬이 생성되었으면...
> begin
>
> end;
>
답변 감사하구여....
Panel이 있는지 없는지를 검사하려구 하는데요...
있으면 되는거구여...
없으면 생성을 시키려구 하는건데...
문제는 있는지 없는지를 검사는 방법입니다...
에러두 없어서 에러가 나는 건데...
답변을...
-
제 말이 그말인데요. 판넬을 생성해서 넣어주잖아요? 그러니까 판넬이 이미 생성되어 있다면 그 배열에 nil이 아닌값이 들어가 있을겁니다. 그래서 nil로 판단을 하는 겁니다.
참고로 생성된 판넬을 Free할땐 FreeAndNil함수를 써서 그 배열에 nil이 들어가시도록 하시면 나중에 그 배열에 또 다시 넣을때도 이상없이 들어갈겁니다.
판넬을
sho2505 wrote:
> kylix wrote:
> > 먼저 Panel1[I, J]가 nil인가를 판단을 하세요.
> >
> > if Panel1[I, J] <> nil then // 판넬이 생성되었으면...
> > begin
> >
> > end;
> >
>
> 답변 감사하구여....
>
> Panel이 있는지 없는지를 검사하려구 하는데요...
> 있으면 되는거구여...
> 없으면 생성을 시키려구 하는건데...
> 문제는 있는지 없는지를 검사는 방법입니다...
> 에러두 없어서 에러가 나는 건데...
> 답변을...
>
(NOTICE) You must be logged in to comment on this post.
-
- 김상영
- 2001.04.27 00:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 이슬이(참이슬)
- •
- 2001.04.27 00:29
- 2 COMMENTS
- /
- 0 LIKES
-
정용진•2001.04.27 18:14질문이 이해가 잘 되지 않는군요. 제 나름대로 이해해서 허접답변해 봅니다. 답변1. 혹시! form의 mous...
-
이슬이(참이슬)•2001.04.27 21:14procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var p ...
-
- 윤순상
- 2001.04.27 01:13
- 0 COMMENTS
- /
- 0 LIKES
-
-
사발우성•2001.04.27 02:47Pos('5',news_title) 이걸사용해보시길.. 사용법은 Help F1 ^^;; 초보 wrote: > news_title :='삼성전...
-
-
- 청희
- 2001.04.26 23:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2001.04.26 23:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱아
- •
- 2001.04.26 23:25
- 4 COMMENTS
- /
- 0 LIKES
-
하눌이•2001.04.26 23:31짱아 wrote: > 2000년 03월 22일을 > 2000.3.22... 이런식으로 넣으려면 어떻게 해야 하나요?? > 현...
-
짱아•2001.04.26 23:38FormQR1.S_DATE.Caption := COPY(S_DATE.Text,1,4)+'.'+COPY(S_DATE.Text,5,2)+'.'+COPY(S_DATE.Text,7,2)+...
-
이성훈•2001.04.27 00:13짱아 wrote: > FormQR1.S_DATE.Caption := COPY(S_DATE.Text,1,4)+'.'+COPY(S_DATE.Text,5,2)+'.'+COPY(S_...
-
짱아•2001.04.27 02:13감사해요 증말증말 감사합니다....
-
- 김명찬
- •
- 2001.04.26 23:24
- 2 COMMENTS
- /
- 0 LIKES
-
초초보•2001.04.27 00:32김명찬 wrote: > 말 그대로 입니다. > > richedit에서 savetofile로 저장하면 메모장에서 안보이네요....
-
kylix•2001.04.26 23:31TRichEdit는 RTF형식으로 파일을 저장합니다. 메모장에서는 이러한 형식을 지원하지 않으니까 볼수 없구요....
-
- 짱아
- 2001.04.26 23:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 김필수
- •
- 2001.04.26 23:06
- 1 COMMENTS
- /
- 0 LIKES
-
학생•2001.04.27 03:06질문2..에서 폼의 onpaint 이벤트에 작성하셨나요? 안하셨다면 거기서 작성해보심이.. 김필수 wrote: ...
-
- 델파이 궁금이
- 2001.04.26 22:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 소마~
- 2001.04.26 22:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 에이프럴
- 2001.04.26 20:43
- 0 COMMENTS
- /
- 0 LIKES
-
- sho2505
- •
- 2001.04.26 20:39
- 3 COMMENTS
- /
- 0 LIKES
private { Private declarations } Panel1 : array of array of TPanel; Panel2 : array of array of TPanel; Panel3 : array of array of TPanel; Panel4 : array of TPanel; ------------------------------------------ 조건에 따라서 ...-
kylix•2001.04.26 23:40먼저 Panel1[I, J]가 nil인가를 판단을 하세요. if Panel1[I, J] nil then // 판넬이 생성되었으면... ...
-
sho2505•2001.04.27 03:19kylix wrote: > 먼저 Panel1[I, J]가 nil인가를 판단을 하세요. > > if Panel1[I, J] nil then // 판...
-
kylix•2001.04.27 06:40제 말이 그말인데요. 판넬을 생성해서 넣어주잖아요? 그러니까 판넬이 이미 생성되어 있다면 그 배열에 nil...
-
- 이승목
- 2001.04.26 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
- Bulduki
- •
- 2001.04.26 20:09
- 1 COMMENTS
- /
- 0 LIKES
-
임철우•2001.12.12 05:16Bulduki wrote: > 안녕하십니까. > 양병규님께서 자료실에 올리신 [VCL]동영상에 자막넣어주는 콤포넌트...
-
- info
- •
- 2001.04.27 02:31
- 1 COMMENTS
- /
- 0 LIKES
-
송기원•2001.04.27 00:12info wrote: > 안녕하세여.저는 델초보 info임다... > 고수님들의 도움이 필요함니당!!! > ------------...
-
- 써니
- 2001.04.26 19:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 정용진
- •
- 2001.04.26 17:38
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.26 23:35델파이 데모폴더에 Virtual ListView란 탐색기 트리구조를 보여주는 예제가 있습니다. 정용진 wrote: >...
-
- 신승익
- •
- 2001.04.26 16:30
- 2 COMMENTS
- /
- 0 LIKES
-
엄승용•2001.11.06 22:25초보라 제 경험담을 올립니다. 혹시 IE 설치후 생긴 현상인지요 우선 시스템종료(Alt+Ctrl+Del)를 누름 ...
-
^-_-^•2001.04.27 01:02yo' 걍 '어플 에러' 창이 시스템 리소스를 꽉채울때까쥐 뜨지 않나요?? ^^;; IE나, 윈도를 업그레...
if Panel1[I, J] <> nil then // 판넬이 생성되었으면...
begin
end;
sho2505 wrote:
> private
> { Private declarations }
> Panel1 : array of array of TPanel;
> Panel2 : array of array of TPanel;
> Panel3 : array of array of TPanel;
> Panel4 : array of TPanel;
> ------------------------------------------
>
> 조건에 따라서 주려고 합니다....
> Panel1[I,J].Height := Height;
> Panel1[I,J].Width := Width;
> Panel1[I,J].Top := Top + ((Height+RowSpace) * I);
> Panel1[I,J].Left := Left + ((Width+ColSpace) * J);
> Panel1[I,J].BevelInner := bvRaised;
> Panel1[I,J].BevelOuter := bvRaised;
> Panel1[I,J].Name := 'AU';
> Panel1[I,J].OnClick := 1Click;
> Panel1[I,J].Parent := PanelArg;
>
> 문제는 이것이 생성이 되어 있는 지 안되었는지를 체크 하려구 합니다..
>
> IF (Panel1[I,J].Visible = FALSE) and (Panel2[I,J].Visible = FALSE) and
> (Panel3[I,J].Visible = FALSE) and (Panel4[I].Visible = FALSE) then
> begin
> Application.MessageBox('확인하시기 바랍니다!',
> '주의',MB_ICONEXCLAMATION);
>
> Exit;
> end;
>
> Panel이 없기 때문에 에러가 나는데 해결 방법을 모르겠습니다..
> 에러:"Access violation at address 0041FA1B in module"
> 해결을 부탁 합니다...꼭...
>