안녕하세요.. 왕초보입니다.
음.. 동적으로 버튼을 만들고 소멸하고 또만들고 이럴때 소멸다음에는 꼭
에러가 나오네요... 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;
감사합니다...
|