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를 만들어주려 해요
어떻게 해야 되는지 고수님들의 답변을 부탁드립니다.
그럼..
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를 만들어주려 해요
어떻게 해야 되는지 고수님들의 답변을 부탁드립니다.
그럼..
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
-
구창민•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
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 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를 만들어주려 해요
> 어떻게 해야 되는지 고수님들의 답변을 부탁드립니다.
>
> 그럼..
>
선언부
procedure MyButtonClick(Sender:TObject);
구현부
procedure TForm1.MyButtonClick(Sender:TObject);
begin
ShowMessage('버튼의 이름은 '+TButton(Sender).Name+'입니다');
end;
with MyButton do begin
......
OnClick= MyButtonClick; //이코드를 첨가하세요.
end;