Q&A
- 동적 생성한 Label을 Free시키기
컴포넌트를 동적으로 생성시키구 아래와 같이 코딩을 했습니다.
그런데 Free시킬때 짝수번째 라벨만 삭제가 됩니다...
ex> 1 삭제후 1
2
3 3
4
5 5
6
7 7
8
9 9
10
왜 이런가요?
아래는 소스입니다...
procedure TForm1.Button1Click(Sender: TObject);
var
cnt : integer;
begin
for cnt := 1 to 10 do
begin
lbl := tlabel.create(self);
with lbl do
begin
parent := panel1;
left := 50;
top := cnt * 20 ;
width := 50;
height := 14;
name := 'label'+inttostr(cnt);
caption := inttostr(cnt);
visible := true;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
cnt : integer;
begin
for cnt := 0 to panel1.controlCount-1 do panel1.controls[cnt].Free;
end;
그런데 Free시킬때 짝수번째 라벨만 삭제가 됩니다...
ex> 1 삭제후 1
2
3 3
4
5 5
6
7 7
8
9 9
10
왜 이런가요?
아래는 소스입니다...
procedure TForm1.Button1Click(Sender: TObject);
var
cnt : integer;
begin
for cnt := 1 to 10 do
begin
lbl := tlabel.create(self);
with lbl do
begin
parent := panel1;
left := 50;
top := cnt * 20 ;
width := 50;
height := 14;
name := 'label'+inttostr(cnt);
caption := inttostr(cnt);
visible := true;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
cnt : integer;
begin
for cnt := 0 to panel1.controlCount-1 do panel1.controls[cnt].Free;
end;
2
COMMENTS
-
. -
Panel에 있는 control을 뒤부터 지우시면 됩니다..
procedure TForm1.Button1Click(Sender: TObject);
var
cnt : integer;
lbl: TLabel;
begin
for cnt := 1 to 10 do
begin
lbl := tlabel.create(Panel1);
with lbl do
begin
parent := panel1;
left := 50;
top := cnt * 20 ;
width := 50;
height := 14;
name := 'label'+inttostr(cnt);
caption := inttostr(cnt);
visible := true;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
cnt: integer;
begin
for cnt := panel1.controlCount-1 downto 0 do
if panel1.controls[cnt] is TLabel then
panel1.controls[cnt].Free;
end;
권경미 wrote:
> 컴포넌트를 동적으로 생성시키구 아래와 같이 코딩을 했습니다.
>
> 그런데 Free시킬때 짝수번째 라벨만 삭제가 됩니다...
>
> ex> 1 삭제후 1
> 2
> 3 3
> 4
> 5 5
> 6
> 7 7
> 8
> 9 9
> 10
>
> 왜 이런가요?
>
> 아래는 소스입니다...
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> cnt : integer;
> begin
> for cnt := 1 to 10 do
> begin
> lbl := tlabel.create(self);
>
> with lbl do
> begin
> parent := panel1;
> left := 50;
> top := cnt * 20 ;
> width := 50;
> height := 14;
> name := 'label'+inttostr(cnt);
> caption := inttostr(cnt);
> visible := true;
> end;
> end;
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> cnt : integer;
> begin
> for cnt := 0 to panel1.controlCount-1 do panel1.controls[cnt].Free;
>
> end;
>
(NOTICE) You must be logged in to comment on this post.
-
- Gypsie Boy
- 2000.08.26 01:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 유대영
- 2000.08.26 01:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 전진운
- •
- 2000.08.26 01:34
- 2 COMMENTS
- /
- 0 LIKES
-
양상철•2000.08.26 20:02에궁... 저도 이것땜시 무지하게 고생했는데요.... 인터베이스는 자료구하기가 힘들어서리.... 인터베...
-
허춘•2000.08.26 09:18전진운 wrote: > 안녕 하세요 > 이번에 interbase6.0이 open 되었다길래.. > 한번 사용해볼려구 하는데 ...
-
- 윤미영
- •
- 2000.08.26 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
바사기몬•2000.08.26 01:28원문을 보내 드립니다.. The InflateRect function increases or decreases the width and height of th...
-
- 토라
- •
- 2000.08.26 01:13
- 2 COMMENTS
- /
- 0 LIKES
-
666•2000.08.29 03:17테이블 자체에 한글이 들어갈 수 있는 필드를 추가하시던지 아니면 크리스탈의 포뮬러를 이용하시어 if문...
-
최석기•2000.08.26 01:35토라 wrote: > 금액 숫자 ex)50,000 ~> 한글로 오만원 한번 경험해보신 분들이나 아시는분 계심 감...
-
- 정연
- •
- 2000.08.26 01:11
- 1 COMMENTS
- /
- 0 LIKES
-
심동훈•2000.08.26 01:49정연 wrote: > 정연님 질문의 제목을 정확히 명시하시기 바랍니다. > > readln(ff, st); // 한 줄 읽...
-
- 전정기
- •
- 2000.08.26 00:29
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.08.26 12:26안녕하세요 하얀까마귀 입니다... 전 그러한 마스크에디트에서 포커스가 갈때 영어로 바꿔 버리고 거기...
-
- 김정희
- 2000.08.26 00:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 저좀.. 헤헤
- •
- 2000.08.26 00:29
- 8 COMMENTS
- /
- 0 LIKES
-
김선호•2000.08.27 03:22procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin if Column.Index = 0 then ...
-
노용환•2000.08.26 22:23저좀.. 헤헤 wrote: > dbgrid에서 컬럼제목을 누르면 오름차순, 내림차순으로 토글하여 sort를 하려고 합...
-
푸하하•2000.08.26 07:29예전에 자료실인지? 어느분이 올린글을 보고 저도 따라해봤었는데요. DBgrid의 {타이틀 클릭이벤트}를...
-
최석기•2000.08.26 00:43저좀.. 헤헤 wrote: > dbgrid에서 컬럼제목을 누르면 오름차순, 내림차순으로 토글하여 sort를 하려고 합...
-
저좀..헤헤•2000.08.26 01:05최석기 wrote: > 저좀.. 헤헤 wrote: > > dbgrid에서 컬럼제목을 누르면 오름차순, 내림차순으로 토글하...
-
김춘수•2000.09.02 02:33저좀..헤헤 wrote: > 최석기 wrote: > > 저좀.. 헤헤 wrote: > > > dbgrid에서 컬럼제목을 누르면 오름...
-
김춘수•2000.09.02 02:33저좀..헤헤 wrote: > 최석기 wrote: > > 저좀.. 헤헤 wrote: > > > dbgrid에서 컬럼제목을 누르면 오름...
- • • •
-
- 윤미영
- 2000.08.25 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 0712
- •
- 2000.08.25 23:51
- 1 COMMENTS
- /
- 0 LIKES
-
이은정•2000.08.26 01:060712 wrote: > 안녕하세요. 저는 델파이 초짜인데요. > 메뉴를 작성할때 메뉴에 마우스로 포인트 되어있...
-
- 왕초보
- •
- 2000.08.25 23:36
- 4 COMMENTS
- /
- 0 LIKES
-
심동훈•2000.08.25 23:38왕초보 wrote: > 컴파일을 하는데염... > file not found:'AppBar.dcu/' > 이 메세지가 자꾸만 뜨는군염...
-
왕초보•2000.08.26 00:48심동훈 wrote: > 왕초보 wrote: > > 컴파일을 하는데염... > > file not found:'AppBar.dcu/' > > 이 ...
-
심동훈•2000.08.26 01:40왕초보 wrote: > 심동훈 wrote: > > 왕초보 wrote: > > > 컴파일을 하는데염... > > > file not found:...
-
왕초보•2000.08.26 02:26심동훈님... 고맙습니다... 잘 해결되었어요...
-
- 이경원
- •
- 2000.08.25 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
최기용•2000.08.26 08:26이경원 wrote: > 안녕하십니까? > 이제 델파이에 입문한 하수 이경원입니다. > > 요즘 스트링그리드 ...
-
- 심동훈
- 2000.08.25 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- Freechat
- •
- 2000.08.25 22:53
- 1 COMMENTS
- /
- 0 LIKES
-
심동훈•2000.08.25 23:30Freechat wrote: > Unix용 델파이는 없나요. 안녕하세요? 델파이세상(www.freechal.com/delphiworld)...
-
- heimdal
- •
- 2000.08.25 23:00
- 9 COMMENTS
- /
- 0 LIKES
-
김계성•2000.08.27 03:40
-
heimdal•2000.08.28 20:13
-
박용철•2000.08.31 20:27
-
김일영•2000.08.25 23:06
-
heimdal•2000.08.25 23:21
-
정지호•2000.08.25 23:39
-
heimdal•2000.08.26 00:23
- • • •
-
- 써니
- •
- 2000.08.25 22:42
- 2 COMMENTS
- /
- 0 LIKES
-
바사기몬•2000.08.26 00:05if TreeView1.Selected.Text = 'B' then TreeView1.Items.AddChild(TreeView1.Selected,'e') els...
-
써니•2000.08.26 08:08감사합니다. 더 이상 설명이 필요없군요.....^.^ 꾸벅꾸벅
-
- 최석기
- 2000.08.25 22:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 권경미
- •
- 2000.08.25 22:32
- 1 COMMENTS
- /
- 0 LIKES
-
김영해•2000.08.26 00:52권경미 wrote: > 컴포넌트를 동적으로 생성시키구 아래와 같이 코딩을 했습니다. > > 그런데 Free시킬...
-
- 권경미
- •
- 2000.08.25 22:57
- 2 COMMENTS
- /
- 0 LIKES
컴포넌트를 동적으로 생성시키구 아래와 같이 코딩을 했습니다. 그런데 Free시킬때 짝수번째 라벨만 삭제가 됩니다... ex> 1 삭제후 1 2 3 3 4 5 5 6 7 7 8 9 9 10 왜 이런가요? 아래는 소스입니다... procedure TForm1.Button1Click(Send...-
권경미•2000.08.25 23:23.
-
최석기•2000.08.25 22:58Panel에 있는 control을 뒤부터 지우시면 됩니다.. procedure TForm1.Button1Click(Sender: TObject); ...
