질문의 의도를 자세히 알지는 못하겠습니다..
물론 질문을 열심히 하셨는데 알아듣지 못해 죄송합니다..
제가 상황을 임의대로 생각해서 답변을 하겠습니다..
동적으로 콤포넌트를 생성하고 접근할 때는..
공역변수를 선언하셔서 관리하시면 됩니다..
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Images : Array [1..10] of TImage;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
Var
Loop : Integer;
begin
For Loop:= 1 to 10 do
Begin
Images[Loop]:= TImage.Create(Application);
Images[Loop].Parent:= Form1;
....
End;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Images[1].Visible:= False;
end;
end.
답변이 되었으면 좋겠습니다..
From 류..
|