델파이종 wrote:

>

> 컴포넌트 동적생성에 대해 많이들 묻고답하셨던데...

>

> 제가초보라그런지 아무리 찾아봐도 제가원하는걸 찾을수가 업네여^^

>

> 구냥 폼에 Label버튼하나를 만들고싶은데 어케하나요?!!

>

> 코딩으루~~

/////////////////////////////////////////////////////

아래처럼생성하구요

참고로 클릭시 미리 만들어놓은 함수를 실행하게 할 수도 있습니다.

procedure TForm1.Button1Click(Sender: TObject);

var

NEW_Panel : TPanel;

begin

NEW_Panel :=TPanel.Create(self);

NEW_Panel.Parent := self;

NEW_Panel.Top :=11;

NEW_Panel.Left :=11;

NEW_Panel.Width :=40;

NEW_Panel.Height :=17;

NEW_Panel.Caption :='11111';

NEW_Panel.Color :=1;

NEW_Panel.OnClick := PanelsClick; //미리 만들어놓은 함수에 연결

end;

//미리 만들어놓은 함수 ,

class의 기타 컨포넌트 이벤트 헤더선언부 위에 선언해야하는것 알지요

procedure TForm1.PanelsClick(Sender: TObject);

begin

showmessage('1111');

end;