Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[3390] [질문] 동적 버튼 생성후 소멸,재생성시err
ggjksw [ ] 1408 읽음    1998-06-24 03:58
안녕하세요.. 왕초보입니다.
음.. 동적으로 버튼을 만들고 소멸하고 또만들고 이럴때 소멸다음에는 꼭
에러가 나오네요... Access vio.. 13인가하는에러요...
음.. 뭔진 모르지만... 아래 소스를 보시고 갈켜주세요...
음.. 왜 안될까여...


var
  Form1: TForm1;
  Tt : integer;
  TC : TComponent;
  TS : TStrings;
implementation

{$R *.DFM}

procedure TForm1.TransparentButton1Click(Sender: TObject);
var
  TB : TTransParentButton;
  I,X,Y : Integer;
begin
  wwTable1.First;
  X := 0; Y := 0; I := 0; TT := 0;

  Tc := TComponent.Create(owner);          <<- 요건 폼 생성시 만듬..

  WHile not wwTable1.eof DO
    begin

      Tc.InsertComponent( TTransParentButton.Create(Owner) );
      TB := (Tc.components[i] as TTransParentButton);
      TB.Caption := wwTable1.fieldbyName('cloth').Value;
                .
                .
                .
      wwTable1.Next;
    End;

end;

삭제부분...

procedure TForm1.TransparentButton2Click(Sender: TObject);
Var
  temp : TComponent;
begin

While Tc.ComponentCount  > 0 do
    (Tc.Components[tc.ComponentCount-1] as TTransParentButton ).Free;

End;


감사합니다...


+ -

관련 글 리스트
3390 [질문] 동적 버튼 생성후 소멸,재생성시err ggjksw 1408 1998/06/24
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.