Q&A
- [질문/다시] 동적폼 생성후 이벤트핸들러는 어떻게??
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
Myform: Tform;
Mybutton: Tbutton;
begin
Myform := Tform.Create(Application);
With Myform do begin
Caption := '연습폼';
end;
Mybutton := Tbutton.Create(Myform);
With Mybutton do begin
Caption := '자식폼만들기';
Parent := Myform;
Left := 100;
Top := 100;
Height := 60;
Width := 200;
end;
Myform.ShowModal;
end;
end.
위와 같이 동적폼을 생성후 생성된 폼위에 버튼 배치까지는 문제없이 되는데
동적으로 생성된 Myform에서 Mybutton의 OnClick를 만들어주려 해요
어떻게 해야 되는지 고수님들의 답변을 부탁드립니다.
Myform.MybuttonClick 이벤트를 만들어줘야 하지 않을까요?
참고사항 : 실행시 form1개, 버튼을 누르면 동적으로 생성된 form 1개위에 버튼하나
그 폼위의 버튼을 누르면 다시
동적인 폼을 생성시키고 싶어서 그럽니다.
부디..
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
Myform: Tform;
Mybutton: Tbutton;
begin
Myform := Tform.Create(Application);
With Myform do begin
Caption := '연습폼';
end;
Mybutton := Tbutton.Create(Myform);
With Mybutton do begin
Caption := '자식폼만들기';
Parent := Myform;
Left := 100;
Top := 100;
Height := 60;
Width := 200;
end;
Myform.ShowModal;
end;
end.
위와 같이 동적폼을 생성후 생성된 폼위에 버튼 배치까지는 문제없이 되는데
동적으로 생성된 Myform에서 Mybutton의 OnClick를 만들어주려 해요
어떻게 해야 되는지 고수님들의 답변을 부탁드립니다.
Myform.MybuttonClick 이벤트를 만들어줘야 하지 않을까요?
참고사항 : 실행시 form1개, 버튼을 누르면 동적으로 생성된 form 1개위에 버튼하나
그 폼위의 버튼을 누르면 다시
동적인 폼을 생성시키고 싶어서 그럽니다.
부디..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델초보
- •
- 1999.12.21 23:02
- 1 COMMENTS
- /
- 0 LIKES
-
ifis•2000.01.31 21:34델초보 wrote: > 안녕하세요 > 참고로 저는 델파이5.0과 크리스탈 레포트 7.0이 있습니다. > 크리스탈레...
-
- 김서영
- •
- 1999.12.21 20:04
- 1 COMMENTS
- /
- 0 LIKES
-
배불뚝•1999.12.21 22:32김서영 wrote: > 안녕하세요 > MS-SQL을 이용해서 데이타베이스에서 읽어오는 프로그램을 작성중이거든요...
-
- 소진광
- •
- 1999.12.21 20:04
- 1 COMMENTS
- /
- 0 LIKES
-
TeamX•1999.12.21 21:15혹시 패닝모드를 발씀하시는건지... 오브젝트인스텍터에서 AllowPanning 을 pmBoth 로 주시고... 챠...
-
- 은철수
- •
- 1999.12.21 18:49
- 1 COMMENTS
- /
- 0 LIKES
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declar...-
구창민•1999.12.21 19:21은철수 wrote: > unit Unit1; > > interface > > uses > Windows, Messages, SysUtils, Classes, ...
-
- 맨발의 청춘
- •
- 1999.12.21 18:00
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.04.25 06:05저는 MDI를 좀 기피하는 편이라 많이 만든 경험은 없지만... WindowMenu에 Spacer MenuItem(하이픈)을 빼...
-
- 김병건
- 1999.12.21 17:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 이민병
- •
- 1999.12.21 09:49
- 1 COMMENTS
- /
- 0 LIKES
-
나원용•1999.12.22 17:07이민병 wrote: > 델파이 4.0을 배우는 중입니다.그런데 최근 언제부터인가 델파이를 > 실행시키면 standa...
-
- 송수현
- •
- 1999.12.21 06:33
- 4 COMMENTS
- /
- 0 LIKES
-
배불뚝•1999.12.21 19:53송수현 wrote: > 안녕하세요 눈이 엄청 많이 와서 길이 미끄럽네요 조심하시길... > > String중에 임의...
-
박성훈•1999.12.21 06:53송수현 wrote: > 안녕하세요 눈이 엄청 많이 와서 길이 미끄럽네요 조심하시길... > > String중에 임의...
-
송수현•1999.12.21 07:05박성훈 wrote: > 혹시 Copy함수를 말씀하시는 건지요? 네? 그냥 Copy요? 이것가지고 가운데쯤 문자를...
-
임형호•1999.12.21 18:17송수현 wrote: > 박성훈 wrote: > > > 혹시 Copy함수를 말씀하시는 건지요? > > 네? 그냥 Copy요? ...
-
- 박성훈
- •
- 1999.12.21 05:51
- 1 COMMENTS
- /
- 0 LIKES
-
김기성•2000.01.25 20:30박성훈 wrote: > BDE관리자에서 net dir을 여러번 변경했습니다. 그런관계로 .lck,.net파일에러 메세지가...
-
- 송기원
- 1999.12.21 05:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재민
- •
- 1999.12.21 05:41
- 2 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.12.21 06:49이재민 wrote: > 참담한 심정으로 질문올립니다. 불길한 예감.... > > 어떤 폼(form1)에서 다른폼(form...
-
삶지기•1999.12.21 08:03박성훈 wrote: > 이재민 wrote: > > 참담한 심정으로 질문올립니다. 불길한 예감.... > > > > 어떤 폼...
-
- 박성훈
- 1999.12.21 04:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 은철수
- •
- 1999.12.21 04:19
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.12.21 04:31은철수 wrote: > unit Unit1; > > interface > > uses > Windows, Messages, SysUtils, Classes,...
-
- 임성룡
- 1999.12.21 04:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 자유나무
- •
- 1999.12.21 04:12
- 1 COMMENTS
- /
- 0 LIKES
-
DBIB•1999.12.22 01:17자유나무 wrote: > 1.저 프로젝트 때문에 급하거든요.. > 2.BDE 알리아스를 사용하여 델파이랑 연결하고 ...
-
- Tweety
- 1999.12.21 04:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 영서니
- •
- 1999.12.21 03:57
- 1 COMMENTS
- /
- 0 LIKES
-
삶지기•1999.12.21 08:06영서니 wrote: > 프로그램상으로는..출력물이 나오기 힘들다는데... > 날코딩을 하라는데.. > 날코딩은 ...
-
- 나두초보
- •
- 1999.12.21 02:14
- 1 COMMENTS
- /
- 0 LIKES
-
호수영•1999.12.21 03:35나두초보 wrote: > dbgrid에 뿌려진 값을 한 row씩 읽어서 다른 테이블에 넣으려고 합니다. > 그런데 여...
-
- 왕초보
- •
- 1999.12.21 01:36
- 2 COMMENTS
- /
- 0 LIKES
-
구은미•1999.12.24 07:07왕초보 wrote: > 동영상을 패널에 나타나는데 패널 중앙에 나타나게 하는 방법 좀 > 델님들의 도움이 필...
-
삶지기•1999.12.21 08:08왕초보 wrote: > 동영상을 패널에 나타나는데 패널 중앙에 나타나게 하는 방법 좀 > 델님들의 도움이 필...
-
- 이선주
- •
- 1999.12.21 01:10
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•1999.12.21 18:32이선주 wrote: > > 현재 PC에서 실행중인 모든 프로그램들중에서 타이틀에 특정 문자열을 포함하고 >...
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Myform: Tform;
> Mybutton: Tbutton;
> begin
> Myform := Tform.Create(Application);
> With Myform do begin
> Caption := '연습폼';
> end;
> Mybutton := Tbutton.Create(Myform);
> With Mybutton do begin
> Caption := '자식폼만들기';
> Parent := Myform;
> Left := 100;
> Top := 100;
> Height := 60;
> Width := 200;
> end;
> Myform.ShowModal;
> end;
>
> end.
>
> 위와 같이 동적폼을 생성후 생성된 폼위에 버튼 배치까지는 문제없이 되는데
> 동적으로 생성된 Myform에서 Mybutton의 OnClick를 만들어주려 해요
> 어떻게 해야 되는지 고수님들의 답변을 부탁드립니다.
>
> Myform.MybuttonClick 이벤트를 만들어줘야 하지 않을까요?
>
> 참고사항 : 실행시 form1개, 버튼을 누르면 동적으로 생성된 form 1개위에 버튼하나
> 그 폼위의 버튼을 누르면 다시
> 동적인 폼을 생성시키고 싶어서 그럽니다.
>
> 부디..
>
아래 한줄을 생성된 버튼의 with문안에 삽입하면 되겠네요.
OnClick := MyButtonClick;
그리고 실제로 몸체도 작성해줘야죠.. 예를들면
procedure TForm1.MyButtonClick(Sender : TObject);
begin
with (Sender as TButton) do
ShowMessage('동적버튼을 눌렀넹~');
end;
오타없으면 될겁니다.
참, 위에 선언부 작성하시는거 잊지 마시구요~
그럼, 즐거운 프로그래밍 하세요~