이승윤 께서 말씀하시기를...

> Button1 := TButton.Create(Self);

> Button1.Caption := 'Button1';

> Button1.Visible := True;

>

> 위와 같은 방법으로 런타임시에 버튼을 생성했는데 그 버튼에 OnClick 이벤트를 작성하려고 하는데 도저히 어떻게 해야 하는지 모르겠습니다.

>



이승윤님 안녕하세요?

아래처럼 해보세요.

procedure TForm1.Button1Click(Sender: TObject);

var Button1 : TButton;

begin

Button1 := TButton.Create(Form1);

with Button1 do begin

Visible := true;

Top := 100;

Left := 100;

Width := 75;

Caption := '난 버튼이야';

Name := 'RunTimeBtn';

Parent := Form1;

OnClick := ClickProce;

end;

end;



procedure TForm1.ClickProce(Sender : TObject);

begin

with (Sender as TButton) do

ShowMessage('동적 생성 버튼을 클릭했어요.');

end;

그럼..즐거운 프로그래밍 되세요..

질문에 답해 주셔서 정말로 감사합니다.

덕분에 막히 속히 훤하게 뚤린것 같습니다.

질문했던 문제가 해결되니 모든일이 잘됩니다.

죄송스럽지만 앞으로도 많은 도움 부탁드립니다.

다시한번 감사하다는 말씀드립니다.