Q&A
- [Q]프로시져 또는 함수 만들기
메뉴를 동적으로 생성해주고 각 메뉴를 클릭했을때 해당 폼이 뜨게하려고 합니다
============================================================
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
.....
procedure FormCreate(Sender: TObject);
procedure EditClick(Sender: TObject);
procedure FileClick(Sender: TObject);
procedure CopyClick(Sender: TObject);
var
Form1: TForm1;
MainMenu1: TMainMenu;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
.............
MainMenu1.Items[0][1].OnClick := EditClick;
MainMenu1.Items[0][2].OnClick := FileClick;
MainMenu1.Items[0][3].OnClick := CopyClick;
..............
end;
procedure TForm1.EditClick(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;
procedure TForm1.FileClick(Sender: TObject);
begin
Application.CreateForm(TForm3, Form3);
Form3.Show;
end;
procedure TForm1.CopyClick(Sender: TObject);
begin
Application.CreateForm(TForm4, Form4);
Form4.Show;
end;
============================================================
위와 같은 방법말구
procedure TForm1.FormCreate(Sender: TObject); 에서 파라미터를 넘기고
공통 프로시져나 함수를 콜하고
procedure TForm1.EditClick(Sender: TObject);
procedure TForm1.FileClick(Sender: TObject);
procedure TForm1.CopyClick(Sender: TObject); 는 하나의 프로시져(함수)로 만들면
좋은것 같은데요.....생각만 앞서니...어떻해야 하나요???
프로시져(함수)에서 파라미터 처리는 어떻게 해야하는지........
=<대충이런식으로 되면 좋을것 같은데.......===================================
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
.....
procedure FormCreate(Sender: TObject);
procedure MenuClick(????);
var
Form1: TForm1;
MainMenu1: TMainMenu;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
.............
MainMenu1.Items[0][1].OnClick := MenuClick(1); <====요기서 자꾸 에러가...
MainMenu1.Items[0][2].OnClick := MenuClick(2);
MainMenu1.Items[0][3].OnClick := MenuClick(3);
..............
end;
procedure TForm1.MenuClick(????);
begin
if ???? = 1 then begin
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;
if ???? = 2 then begin
Application.CreateForm(TForm3, Form3);
Form3.Show;
end;
if ???? = 3 then begin
Application.CreateForm(TForm4, Form4);
Form4.Show;
end;
end;
=========================================================
불가능한가????
============================================================
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
.....
procedure FormCreate(Sender: TObject);
procedure EditClick(Sender: TObject);
procedure FileClick(Sender: TObject);
procedure CopyClick(Sender: TObject);
var
Form1: TForm1;
MainMenu1: TMainMenu;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
.............
MainMenu1.Items[0][1].OnClick := EditClick;
MainMenu1.Items[0][2].OnClick := FileClick;
MainMenu1.Items[0][3].OnClick := CopyClick;
..............
end;
procedure TForm1.EditClick(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;
procedure TForm1.FileClick(Sender: TObject);
begin
Application.CreateForm(TForm3, Form3);
Form3.Show;
end;
procedure TForm1.CopyClick(Sender: TObject);
begin
Application.CreateForm(TForm4, Form4);
Form4.Show;
end;
============================================================
위와 같은 방법말구
procedure TForm1.FormCreate(Sender: TObject); 에서 파라미터를 넘기고
공통 프로시져나 함수를 콜하고
procedure TForm1.EditClick(Sender: TObject);
procedure TForm1.FileClick(Sender: TObject);
procedure TForm1.CopyClick(Sender: TObject); 는 하나의 프로시져(함수)로 만들면
좋은것 같은데요.....생각만 앞서니...어떻해야 하나요???
프로시져(함수)에서 파라미터 처리는 어떻게 해야하는지........
=<대충이런식으로 되면 좋을것 같은데.......===================================
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
.....
procedure FormCreate(Sender: TObject);
procedure MenuClick(????);
var
Form1: TForm1;
MainMenu1: TMainMenu;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
.............
MainMenu1.Items[0][1].OnClick := MenuClick(1); <====요기서 자꾸 에러가...
MainMenu1.Items[0][2].OnClick := MenuClick(2);
MainMenu1.Items[0][3].OnClick := MenuClick(3);
..............
end;
procedure TForm1.MenuClick(????);
begin
if ???? = 1 then begin
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;
if ???? = 2 then begin
Application.CreateForm(TForm3, Form3);
Form3.Show;
end;
if ???? = 3 then begin
Application.CreateForm(TForm4, Form4);
Form4.Show;
end;
end;
=========================================================
불가능한가????
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 한현숙
- •
- 2001.06.27 19:45
- 7 COMMENTS
- /
- 0 LIKES
-
지나는이•2001.06.27 21:38 -
한현숙•2001.06.27 22:29
-
이재식•2001.06.27 22:33
-
한현숙•2001.06.28 02:43
-
이재식•2001.06.28 06:06
-
한현숙•2001.06.28 18:55
-
이재식•2001.06.28 23:15
-
- blackjewel
- 2001.06.27 19:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 신호
- 2001.06.27 19:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2001.06.27 18:48
- 1 COMMENTS
- /
- 0 LIKES
메뉴를 동적으로 생성해주고 각 메뉴를 클릭했을때 해당 폼이 뜨게하려고 합니다 ============================================================ type TForm1 = class(TForm) MainMenu1: TMainMenu; ..... procedure FormCreate(Sender: ...-
델맨•2001.06.27 20:29궁금이 wrote: > 메뉴를 동적으로 생성해주고 각 메뉴를 클릭했을때 해당 폼이 뜨게하려고 합니다 > ====...
-
-
왕초보•2001.06.27 18:32killer wrote: > 다음과 같은 VB Source가 있다면 델파이로 어떻게 코딩합니까? > > Dim AAA As New...
-
-
- 김남영
- 2001.06.27 13:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 황준영
- 2001.06.27 10:58
- 0 COMMENTS
- /
- 0 LIKES
-
- optech
- •
- 2001.06.27 10:48
- 1 COMMENTS
- /
- 0 LIKES
-
토맛토•2001.06.27 19:30TSmtpRelayServer는 잘 모르겠습니다만 메일 서버 없이 메일을 보내는 방법은 그다지 어렵지 않습니다. ...
-
- 델초짜!
- •
- 2001.06.27 10:02
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.06.28 04:13델초짜! wrote: > Table1의 Post를 취소 하기 위해 BeforePost 함수에 Table1.Cancel을 넣으니 그래도 Pos...
-
- 홍진혁
- •
- 2001.06.27 09:29
- 1 COMMENTS
- /
- 0 LIKES
-
델맨•2001.06.27 20:46홍진혁 wrote: > 안녕하세요. 델파이 동호회원 홍진혁입니다. > > 제가 구사하려는 것은 다음과 같습니...
-
- 다롱이
- •
- 2001.06.27 08:52
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.06.27 18:11다롱이 wrote: > 제가 MS-WORD VIEWER를 작성하고 싶습니다. 그러니까 *.DOC 문서화일을 불러와서 보기와 ...
-
- redangel
- •
- 2001.06.27 06:21
- 2 COMMENTS
- /
- 0 LIKES
-
강호규•2001.06.27 17:49글쎄요... 일반적으로 이 에러는 에러 메시지 그대로 입니다. 접근위반(?)을 했다는 뜻이 거든요. 없는...
-
이경문•2001.06.28 11:13runtime error 216 at 0002FA4" 요 에러는요, 컴파일러가 불안정할 때 생기더라구요. Ctrl-F2로 프로그램...
-
- 시스템
- 2001.06.27 06:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.06.27 05:44
- 1 COMMENTS
- /
- 0 LIKES
-
파도랑•2001.12.11 00:38Delphi5 이상의 Desktop 기능을 사용하시면 가능합니다... 먼저 원하는 화면 모양을 다 만들어놓고 제...
-
- 델초
- •
- 2001.06.27 05:39
- 1 COMMENTS
- /
- 0 LIKES
-
뽀록이•2001.06.27 22:24님의 대해 답변이 될지 모르겠습니다. 처음 시작하는 부분이 숫자 12와 한글한자로 무조건 되어 있으면 ...
-
- bibic
- 2001.06.27 05:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 황정선
- 2001.06.27 04:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 시작한지 1주일
- 2001.06.27 04:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 황도성
- 2001.06.27 03:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 나연희
- 2001.06.27 02:59
- 0 COMMENTS
- /
- 0 LIKES
> 메뉴를 동적으로 생성해주고 각 메뉴를 클릭했을때 해당 폼이 뜨게하려고 합니다
> ============================================================
> type
> TForm1 = class(TForm)
> MainMenu1: TMainMenu;
> .....
> procedure FormCreate(Sender: TObject);
> procedure EditClick(Sender: TObject);
> procedure FileClick(Sender: TObject);
> procedure CopyClick(Sender: TObject);
>
> var
> Form1: TForm1;
> MainMenu1: TMainMenu;
> ....
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> .............
> MainMenu1.Items[0][1].OnClick := EditClick;
> MainMenu1.Items[0][2].OnClick := FileClick;
> MainMenu1.Items[0][3].OnClick := CopyClick;
> ..............
> end;
>
> procedure TForm1.EditClick(Sender: TObject);
> begin
> Application.CreateForm(TForm2, Form2);
> Form2.Show;
> end;
>
> procedure TForm1.FileClick(Sender: TObject);
> begin
> Application.CreateForm(TForm3, Form3);
> Form3.Show;
> end;
>
> procedure TForm1.CopyClick(Sender: TObject);
> begin
> Application.CreateForm(TForm4, Form4);
> Form4.Show;
> end;
>
> ============================================================
> 위와 같은 방법말구
> procedure TForm1.FormCreate(Sender: TObject); 에서 파라미터를 넘기고
> 공통 프로시져나 함수를 콜하고
>
> procedure TForm1.EditClick(Sender: TObject);
> procedure TForm1.FileClick(Sender: TObject);
> procedure TForm1.CopyClick(Sender: TObject); 는 하나의 프로시져(함수)로 만들면
> 좋은것 같은데요.....생각만 앞서니...어떻해야 하나요???
> 프로시져(함수)에서 파라미터 처리는 어떻게 해야하는지........
>
> =<대충이런식으로 되면 좋을것 같은데.......===================================
> type
> TForm1 = class(TForm)
> MainMenu1: TMainMenu;
> .....
> procedure FormCreate(Sender: TObject);
> procedure MenuClick(????);
>
> var
> Form1: TForm1;
> MainMenu1: TMainMenu;
> ....
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> .............
> MainMenu1.Items[0][1].OnClick := MenuClick(1); <====요기서 자꾸 에러가...
> MainMenu1.Items[0][2].OnClick := MenuClick(2);
> MainMenu1.Items[0][3].OnClick := MenuClick(3);
> ..............
> end;
>
> procedure TForm1.MenuClick(????);
> begin
> if ???? = 1 then begin
> Application.CreateForm(TForm2, Form2);
> Form2.Show;
> end;
>
> if ???? = 2 then begin
> Application.CreateForm(TForm3, Form3);
> Form3.Show;
> end;
>
> if ???? = 3 then begin
> Application.CreateForm(TForm4, Form4);
> Form4.Show;
> end;
>
> end;
> =========================================================
> 불가능한가????
OnClick에 넘겨줄수있는건 OnClick과 인자구조가 같은 메소드만 가능합니다.
위에서 새로만든 MenuClick은 인자구조가 다르므로 사용할수 없습니다.
여러 이벤트가 하나의 이벤트 메소드를 공유하고자 할때는 Sender를 활용해야 합니다.
위소스를 수정해보면...
procedure TForm1.FormCreate(Sender: TObject);
begin
.............
MainMenu1.Items[0][1].OnClick := MenuClick;
MainMenu1.Items[0][2].OnClick := MenuClick;
MainMenu1.Items[0][3].OnClick := MenuClick;
..............
end;
procedure TForm1.MenuClick(Sender: TObject);
begin
if Sender = MainMenu1.Items[0][1] then begin
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;
if Sender = MainMenu1.Items[0][2] then begin
Application.CreateForm(TForm3, Form3);
Form3.Show;
end;
if Sender = MainMenu1.Items[0][3] then begin
Application.CreateForm(TForm4, Form4);
Form4.Show;
end;
end;
이렇게 되겠지요... Sender는 이벤트를 보내는 객체입니다.