한국 델파이 개발자 모임 - 동적생성컴포넌트 제거하는 법좀~?

동적생성컴포넌트 제거하는 법좀~?

procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

TempRect: TRect;

myEdit : TEdit;

begin

myEdit := TEdit.Create(Main);

with myEdit do

begin

Left := ImgBox.Left + X;

Top := ImgBox.Top + Y;

Width := 40;

Parent := Main;

Tag := 1;

Global_X := X;

Global_Y := Y;

Setfocus;

end;

end;

procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);

var

I: Integer;

Temp: TComponent;

begin

if key = #27 then

begin

for I := ComponentCount - 1 downto 0 do

begin

Temp := Components[I];

if Temp is TEdit then

RemoveComponent(Temp);

end;

end;

end;

위와 같이 이미지를 클릭했을때 동적으로 버튼을 생성했습니다.

그리고 폼에서 ESC키를 누르면 생성한 버튼을 제거하려 합니다.

그런데 잘 되지 않습니다.

컴포넌트 제거하는 방법좀 알려주세요~~

이 게시물을

4 COMMENTS

최용일 • 2001.09.25 19:16

안녕하세요. 최용일입니다.

폼의 KeyPreview속성을 True로 해놓고 다음과 같이 코딩하세요...

procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);

var

I: Integer;

Temp: TComponent;

begin

if key = #27 then

begin

for I := ControlCount - 1 downto 0 do

begin

Temp := Controls[I];

if Temp is TEdit then

begin

Temp.Free;

end;

end;

end;

end;

^^ 항상 즐코하세요...

델프리 wrote:

> procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton;

> Shift: TShiftState; X, Y: Integer);

> var

> TempRect: TRect;

> myEdit : TEdit;

> begin

> myEdit := TEdit.Create(Main);

> with myEdit do

> begin

> Left := ImgBox.Left + X;

> Top := ImgBox.Top + Y;

> Width := 40;

> Parent := Main;

> Tag := 1;

> Global_X := X;

> Global_Y := Y;

> Setfocus;

> end;

> end;

>

>

> procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);

> var

> I: Integer;

> Temp: TComponent;

> begin

> if key = #27 then

> begin

> for I := ComponentCount - 1 downto 0 do

> begin

> Temp := Components[I];

> if Temp is TEdit then

> RemoveComponent(Temp);

> end;

> end;

> end;

>

>

> 위와 같이 이미지를 클릭했을때 동적으로 버튼을 생성했습니다.

> 그리고 폼에서 ESC키를 누르면 생성한 버튼을 제거하려 합니다.

> 그런데 잘 되지 않습니다.

> 컴포넌트 제거하는 방법좀 알려주세요~~
- 0
- 0
- 삭제
- 수정
- 댓글
델프리 • 2001.09.25 19:21

procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

myEdit : TEdit;

begin

myEdit := TEdit.Create(Main);

with myEdit do

begin

Left := ImgBox.Left + X;

Top := ImgBox.Top + Y;

Width := 40;

Parent := Main;

Tag := 1;

OnKeyPress := EditKeyPress; -> 여기서 삭제

end;

end;

procedure TMain.EditKeyPress(Sender: TObject; var Key: Char);

begin

if key = #27 then

begin

if TEdit(Sender).Text = '' then

begin

TEdit(Sender).Free; // 여기서 에러가 나요...

end;

end;

end;

KeyPress이벤트에서 Free가 되지 않는데 어떻게 삭제를 하면 되나요?
- 0
- 0
- 삭제
- 수정
- 댓글
델프리 • 2001.09.25 19:20

최용일 wrote:

> 안녕하세요. 최용일입니다.

>

> 폼의 KeyPreview속성을 True로 해놓고 다음과 같이 코딩하세요...

>

> procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);

> var

> I: Integer;

> Temp: TComponent;

> begin

> if key = #27 then

> begin

> for I := ControlCount - 1 downto 0 do

> begin

> Temp := Controls[I];

> if Temp is TEdit then

> begin

> Temp.Free; // 여기서 에러가

> end;

> end;

> end;

> end;

>

> ^^ 항상 즐코하세요...

>

> 델프리 wrote:

> > procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton;

> > Shift: TShiftState; X, Y: Integer);

> > var

> > TempRect: TRect;

> > myEdit : TEdit;

> > begin

> > myEdit := TEdit.Create(Main);

> > with myEdit do

> > begin

> > Left := ImgBox.Left + X;

> > Top := ImgBox.Top + Y;

> > Width := 40;

> > Parent := Main;

> > Tag := 1;

> > Global_X := X;

> > Global_Y := Y;

> > Setfocus;

> > end;

> > end;

> >

> >

> > procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);

> > var

> > I: Integer;

> > Temp: TComponent;

> > begin

> > if key = #27 then

> > begin

> > for I := ComponentCount - 1 downto 0 do

> > begin

> > Temp := Components[I];

> > if Temp is TEdit then

> > RemoveComponent(Temp);

> > end;

> > end;

> > end;

> >

> >

> > 위와 같이 이미지를 클릭했을때 동적으로 버튼을 생성했습니다.

> > 그리고 폼에서 ESC키를 누르면 생성한 버튼을 제거하려 합니다.

> > 그런데 잘 되지 않습니다.

> > 컴포넌트 제거하는 방법좀 알려주세요~~
- 0
- 0
- 삭제
- 수정
- 댓글
최용일 • 2001.09.26 09:14

잘 되는데요... 제가 직접 실행해보고 올린건데요... 이상하군요...

델프리 wrote:

>

> 최용일 wrote:

> > 안녕하세요. 최용일입니다.

> >

> > 폼의 KeyPreview속성을 True로 해놓고 다음과 같이 코딩하세요...

> >

> > procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);

> > var

> > I: Integer;

> > Temp: TComponent;

> > begin

> > if key = #27 then

> > begin

> > for I := ControlCount - 1 downto 0 do

> > begin

> > Temp := Controls[I];

> > if Temp is TEdit then

> > begin

> > Temp.Free; // 여기서 에러가

> > end;

> > end;

> > end;

> > end;

> >

> > ^^ 항상 즐코하세요...

> >

> > 델프리 wrote:

> > > procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton;

> > > Shift: TShiftState; X, Y: Integer);

> > > var

> > > TempRect: TRect;

> > > myEdit : TEdit;

> > > begin

> > > myEdit := TEdit.Create(Main);

> > > with myEdit do

> > > begin

> > > Left := ImgBox.Left + X;

> > > Top := ImgBox.Top + Y;

> > > Width := 40;

> > > Parent := Main;

> > > Tag := 1;

> > > Global_X := X;

> > > Global_Y := Y;

> > > Setfocus;

> > > end;

> > > end;

> > >

> > >

> > > procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);

> > > var

> > > I: Integer;

> > > Temp: TComponent;

> > > begin

> > > if key = #27 then

> > > begin

> > > for I := ComponentCount - 1 downto 0 do

> > > begin

> > > Temp := Components[I];

> > > if Temp is TEdit then

> > > RemoveComponent(Temp);

> > > end;

> > > end;

> > > end;

> > >

> > >

> > > 위와 같이 이미지를 클릭했을때 동적으로 버튼을 생성했습니다.

> > > 그리고 폼에서 ESC키를 누르면 생성한 버튼을 제거하려 합니다.

> > > 그런데 잘 되지 않습니다.

> > > 컴포넌트 제거하는 방법좀 알려주세요~~
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- fallroot
- 2001.09.25 22:16
- 0 COMMENTS
- /
- 0 LIKES
Indy(인디) 소켓에서 익셉션 제어는 어떻게?
- moon
- •
- 2001.09.25 21:27
- 1 COMMENTS
- /
- 0 LIKES
리포터에 관해
- 징글징글델파이
  
  •
  
  2001.09.25 22:04
  
  moon wrote: > 리포터에서 그룹핑을 했습니다. > 근데 제가 지금 한것은 그룹이 되긴 되는데 > 제가 하...
- 초보
- •
- 2001.09.25 21:15
- 1 COMMENTS
- /
- 0 LIKES
Canvas의 Pixel 조정가능한가요 ?
- 홍성락
  
  •
  
  2001.09.25 23:23
  
  초보 wrote: > 질문이 맞는지 모르겠습니다. > Canvas에 그림을 그리는데 일반적인 Pixel로 그림을 그리...
- 김지훈
- 2001.09.26 00:23
- 0 COMMENTS
- /
- 0 LIKES
원클릭 관련 프로그래밍 질문..
- 최명관
- 2001.09.25 20:56
- 0 COMMENTS
- /
- 0 LIKES
웹하드 구현 하려는데....
- 송인섭
- 2001.09.25 20:56
- 0 COMMENTS
- /
- 0 LIKES
리눅서 서버와 소켓 통신...
- 황
- 2001.09.25 20:13
- 0 COMMENTS
- /
- 0 LIKES
outLookbar 에 대한 질문입디다.Items 추가
- 초보자...
- •
- 2001.09.25 19:45
- 3 COMMENTS
- /
- 0 LIKES
두개의 폼을 서로 서로 .............
- 사이비쥐<;●●~
  
  •
  
  2001.09.25 19:49
  
  초보자... wrote: > 메인 폼이 있구요.. > 이 메인폼의 콤보박스에서 1을 선택하면 1에 해당하는 작은 폼...
- 초보자..
  
  •
  
  2001.09.25 20:06
  
  사이비쥐 초보자... wrote: > > 메인 폼이 있구요.. > > 이 메인폼의 콤보박스에서 1을 선택하면 1에 해...
- 사이비쥐<:●●~
  
  •
  
  2001.09.25 20:38
  
  초보자.. wrote: > 사이비쥐 > 초보자... wrote: > > > 메인 폼이 있구요.. > > > 이 메인폼의 콤보박스...
- 델초짜
- 2001.09.25 19:44
- 0 COMMENTS
- /
- 0 LIKES
filelistbox에 대한 질문입니다.
- 델프리
- 2001.09.25 19:37
- 0 COMMENTS
- /
- 0 LIKES
그림판에서 Text를 넣을때 처럼 테두리를 점선으로...
- 아줌마
- 2001.09.25 19:18
- 0 COMMENTS
- /
- 0 LIKES
Vendor에러 후, 이제는 bde가 다운이 되네요..
- 노가다
- •
- 2001.09.25 19:10
- 1 COMMENTS
- /
- 0 LIKES
ActiveForm에서 새로고침을 눌렀더니...
- 서성호
  
  •
  
  2001.09.26 03:22
  
  노가다 wrote: > 안녕하세요? > > ActiveForm으로 Form을 만들어서 Web Brower에 올리고 새로고침을 누...
- 델프리
- •
- 2001.09.25 19:06
- 4 COMMENTS
- /
- 0 LIKES
동적생성컴포넌트 제거하는 법좀~?

procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var TempRect: TRect; myEdit : TEdit; begin myEdit := TEdit.Create(Main); with myEdit do begin Left := ImgBox.Left +...
- 최용일
  
  •
  
  2001.09.25 19:16
  
  안녕하세요. 최용일입니다. 폼의 KeyPreview속성을 True로 해놓고 다음과 같이 코딩하세요... proced...
- 델프리
  
  •
  
  2001.09.25 19:21
  
  procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Int...
- 델프리
  
  •
  
  2001.09.25 19:20
  
  최용일 wrote: > 안녕하세요. 최용일입니다. > > 폼의 KeyPreview속성을 True로 해놓고 다음과 같이 ...
- 최용일
  
  •
  
  2001.09.26 09:14
  
  잘 되는데요... 제가 직접 실행해보고 올린건데요... 이상하군요... 델프리 wrote: > > 최용일 wrote...
- 정규성
- •
- 2001.09.25 18:17
- 1 COMMENTS
- /
- 0 LIKES
ODBC로 DB2 연결이 잘 안됩니다.
- major
  
  •
  
  2001.09.25 19:18
  
  정규성 wrote: > Client Access 400으로 ODBC를 DB2로 설정한 후에 데이터를 가져오기 하면 모두 > 가져 ...
- 구자균
- 2001.09.25 14:11
- 0 COMMENTS
- /
- 0 LIKES
질문]디비그리드에서 커서레코드의 폰트색갈을 바꾸고싶~~
- 용이
- •
- 2001.09.25 13:33
- 1 COMMENTS
- /
- 0 LIKES
query 문제 ....where ...??
- 사발우성
  
  •
  
  2001.09.25 21:17
  
  용이 wrote: > combobox1을 이용해서 특정 필드값을 불러와서 선택한후에 그 선택한 값으로 > combobox2...
- kittysp
- 2001.09.25 10:09
- 0 COMMENTS
- /
- 0 LIKES
Database에서 uid와 pwd 거는방법 좀...
- 우리들
- •
- 2001.09.25 09:50
- 1 COMMENTS
- /
- 0 LIKES
[급]StringGrid의 내용을 QRReport로출력
- stoney
  
  •
  
  2001.09.25 10:00
  
  검색하시면 이런 종류 질문 많을텐데요.. OnNeedData로 검색하시던지 헬프를 찾아보세요.. 우리들 wr...
- kittysp
- •
- 2001.09.25 09:36
- 3 COMMENTS
- /
- 0 LIKES
OpenPictureDialog1이라는 것을 어떻게 만드는지 좀...
- scryed
  
  •
  
  2001.09.25 10:47
  
  컴포넌트입니다. 사용법은 많이 쓰는 opendialog와 같습니다.
- kittysp
  
  •
  
  2001.09.25 10:59
  
  델파이의 컴포넌트 리스트에 들어있는건가요, 아님... 따로 만들어진 컴포넌트인가요.. 정확히 좀 알려주...
- scryed
  
  •
  
  2001.09.26 01:55
  
  Dialog tab page에 등록되어 있는 기본 컴포넌트 입니다.
- 나그네..
- 2001.09.25 09:29
- 0 COMMENTS
- /
- 0 LIKES
ICQ와 같은 화면 구성 할려면....

델프리
2001/09/25 19:06
Views292

Likes0

Comments4

Reports0
Tag List
수정
삭제
목록으로

←First Page

1569 1570 1571 1572 1573 1574 1575 1576 1577 1578

Last Page→