안녕하세요...'로렌조' 임다...^^
: procedure DynBtnClick(Sender : TObject); <--요기 잘못
: begin
: ShowMessage('동적으로 버튼이 생성되었습니다.');
: end;
procedure TForm1.DynBtnClick(Sender : TObject);
=======
넣어주세요
그럼....
피에수...버튼의 위치와 크기도 정해주셔야 폼위에 나타나겠죠?
손동섭 님이 쓰신 글 :
: 실행시에 버튼을 화면에 만들어 보려고 합니다.
:
: 아래와 같이 폼에 딸랑 버튼하나만 만들어 놓고 버튼을 누르면
:
: 동적으로 버튼이 생성되고 핸들러를 등록하려고 합니다.
:
: 그런데 컴파일 에러가 발생하네요
: "Unsatisfied forward or external declaration: 'TForm1.DynBtnClick'
:
: 소스는 아래와 같습니다. 보시고 원인을 아시는 분은 답해주세요...
:
:
: unit Unit1;
:
: interface
:
: uses
: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
: Dialogs, StdCtrls;
:
: type
: TForm1 = class(TForm)
: Button1: TButton;
: procedure Button1Click(Sender: TObject);
: procedure DynBtnClick(Sender : TObject); <-------- 에러가 발생
: private
: { Private declarations }
: public
: { Public declarations }
: end;
:
: var
: Form1: TForm1;
:
: implementation
:
: var
: DynBtn : TButton;
: {$R *.dfm}
:
: procedure DynBtnClick(Sender : TObject);
: begin
: ShowMessage('동적으로 버튼이 생성되었습니다.');
: end;
:
: procedure TForm1.Button1Click(Sender: TObject);
: begin
: DynBtn := Tbutton.Create(Form1);
: DynBtn.Caption := '동적생성';
: DynBtn.Parent := Form1;
: DynBtn.OnClick := DynBtnClick;
: end;
:
: end.
|