Q&A
- 이벤트명을 비교하고 싶은데요...
메인메뉴 그리고 하위메뉴들이 있을때
각 메뉴아이템들의 OnClick이벤트의 이름을 알고 싶거든요.
부탁드립니다.
예를들어
procedure TForm1.Button1Click(Sender: TObject);
var
intCnt: integer;
Temp : TNotifyEvent;
begin
for intCnt := 0 to ComponentCount-1 do
begin
if Components[intCnt] is TMenuItem then
begin
////////////// 어떤식으로 비교를 해야 하나요?
Temp := Menu2Click;
if ((Components[intCnt] as TMenuItem).OnClick(Self) = Temp(???)) then
ShowMessage('aaaaaa');
.....
각 메뉴아이템들의 OnClick이벤트의 이름을 알고 싶거든요.
부탁드립니다.
예를들어
procedure TForm1.Button1Click(Sender: TObject);
var
intCnt: integer;
Temp : TNotifyEvent;
begin
for intCnt := 0 to ComponentCount-1 do
begin
if Components[intCnt] is TMenuItem then
begin
////////////// 어떤식으로 비교를 해야 하나요?
Temp := Menu2Click;
if ((Components[intCnt] as TMenuItem).OnClick(Self) = Temp(???)) then
ShowMessage('aaaaaa');
.....
3
COMMENTS
-
-
제가 알기로는
이건 불가능 한것으로 알고 있습니다.
만약 필요하시다면
전역변수를 잡아서 클릭이 발생했을때의 함수명을 전역변수에 넣어주고
그 변수를 읽어보셔야 할것 같습니다.
((Components[intCnt] as TMenuItem).OnClick(Self) 는 이벤트 명을 가져오는 게
아니라 함수를 실행시켜 버립니다.
매일웃자 wrote:
> 메인메뉴 그리고 하위메뉴들이 있을때
> 각 메뉴아이템들의 OnClick이벤트의 이름을 알고 싶거든요.
> 부탁드립니다.
>
> 예를들어
> procedure TForm1.Button1Click(Sender: TObject);
> var
> intCnt: integer;
> Temp : TNotifyEvent;
> begin
> for intCnt := 0 to ComponentCount-1 do
> begin
> if Components[intCnt] is TMenuItem then
> begin
> ////////////// 어떤식으로 비교를 해야 하나요?
> Temp := Menu2Click;
> if ((Components[intCnt] as TMenuItem).OnClick(Self) = Temp(???)) then
> ShowMessage('aaaaaa');
> .....
>
-
잘 읽어보았습니다. 감사합니다.
제가 하려는 작업에 꼭 필요해서 말인데요...
약 100개정도의 메뉴아이템들이 있고
각 메뉴아이템들의 OnClick이벤트가
Menu1Click, Menu2Click, Menu3Click
이렇게 세가지로 묶였다면
메뉴아이템들의 클릭이벤트명을 읽어서
같은것끼리 리스트를 만들어야 합니다.
어떤 방법이 없을까요?
(NOTICE) You must be logged in to comment on this post.
-
- 송영일
- •
- 2001.09.20 08:48
- 2 COMMENTS
- /
- 0 LIKES
-
나그네•2001.09.20 23:07송영일 wrote: > ora-00942 테이블또는뷰가 존재하지않습니다!!!!!!!!!!!!! 왜 그럴까요?? > > 오라클...
-
방랑자•2001.11.01 19:14저도 델파이를 직접 해 본 건 이번이 처음이고요... 하지만 이 문제는 이 객체가 진짜로 DB에서 그 유저에...
-
-
졸리운넘•2001.09.20 09:311. 프로젝트소스에서 폼의 순서를 바꾼다. 2. Project->Options->forms탭에서 순서를 바꾼다. 어떠케하던...
-
잠안오는사람•2001.09.20 10:091. 프로젝트소스에서 폼의 순서를 바꾼다. 2. Project->Options->forms탭에서 순서를 바꾼다. 어떠케...
-
-
- 문상연
- 2001.09.20 07:55
- 0 COMMENTS
- /
- 0 LIKES
-
- goodman
- •
- 2001.09.20 07:00
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.09.20 19:15방법은 같답니다. SList.Add('PATH='+EXECDIR+'DataBase'); 이렇게 해서 하나의 알리아스를 만드셨듯이 ...
-
- 옷샀는데 예쁘다
- •
- 2001.09.20 06:06
- 1 COMMENTS
- /
- 0 LIKES
-
잠안오는사람•2001.09.20 10:18----------------여기서 부터 잘모르겠거든요 부탁드립니다--------------------------- > > procedure ...
-
- 심병화
- •
- 2001.09.20 05:57
- 2 COMMENTS
- /
- 0 LIKES
-
이경문•2001.09.20 11:52책보세요 심병화 wrote: > 질문이 있어 도움을 요청합니다. > 간단한 db연동 프로그램을 만드는데 입력 ...
-
심병화•2001.09.21 04:08이경문 wrote: > 책보세요 > 심병화 wrote: > > 질문이 있어 도움을 요청합니다. > > 간단한 db연동 프...
-
- 어뜩해
- •
- 2001.09.20 05:46
- 1 COMMENTS
- /
- 0 LIKES
-
초보의비애•2001.09.20 19:18어뜩해 wrote: > CashedUpdate를 사용합니다 한번 저장하고 또 저장하면 > " A user transaction is a...
-
- 건
- 2001.09.20 03:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 양수빈
- 2001.09.20 03:26
- 0 COMMENTS
- /
- 0 LIKES
-
-
나도 델초보•2001.09.20 10:29델초보 wrote: > 데이타베이스는 오라클을 사용합니다. > 버젼 7에서 817로 Upgrade한후 Query속도가 너...
-
-
- 이상수
- •
- 2001.09.20 02:33
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.20 02:45안녕하세요. 최용일입니다. 페인트박스에다가 직접그리시지 마시고 비트맵객체(TBitmap)를 하나 생성해...
-
이상수•2001.09.20 03:28최용일님 감사합니다. 말씀하신대로 실행을 해보았는데 TBitmap을 생성한후에 var tbm: TBitma...
-
최용일•2001.09.21 00:59자료실에 TBigBitmapViewer 란 컴포넌트가 있는데 그걸한번 사용해보시죠... 이상수 wrote: > 최용일님...
-
- 어뜩해
- 2001.09.20 02:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 한철
- 2001.09.20 01:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 초짜
- •
- 2001.09.20 01:07
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.09.20 12:21thread 생성에는 크게 2가지 관점에서 볼 수 있습니다. 1. CPU performane thrad가 많아진다고 실행이 느...
-
-
최용일•2001.09.20 02:39안녕하세요. 최용일입니다. uses절에 ActiveX유닛을 추가해주세요... ^^ 항상 즐코하세요... 문상...
-
문상연•2001.09.20 07:16최용일 wrote: > 안녕하세요. 최용일입니다. > > uses절에 ActiveX유닛을 추가해주세요... > > ^^ ...
-
최용일•2001.09.21 04:31아마도 IE로 프린트하면 그렇게 하기 힘들거 같군요... 델마당에 하는 방법이 답변으로 달렸네요... ...
-
-
- 이병주
- 2001.09.20 00:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 최월자
- 2001.09.20 00:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지컴
- •
- 2001.09.19 23:32
- 2 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 23:53이지컴 wrote: > > 자꾸 쉬운것만 물어봅니다.(아구 챙피혀..) > > 현금출납장부 테이블이 하나 있...
-
홍세비•2001.09.19 23:51이지컴 wrote: > > 자꾸 쉬운것만 물어봅니다.(아구 챙피혀..) > > 현금출납장부 테이블이 하나 있...
-
- 매일웃자
- •
- 2001.09.20 00:07
- 3 COMMENTS
- /
- 0 LIKES
메인메뉴 그리고 하위메뉴들이 있을때 각 메뉴아이템들의 OnClick이벤트의 이름을 알고 싶거든요. 부탁드립니다. 예를들어 procedure TForm1.Button1Click(Sender: TObject); var intCnt: integer; Temp : TNotifyEvent; begin for intCnt...-
매일웃자•2001.09.20 19:49ActionList에 이벤트들을 등록하고 Action명을 비교했더니 되더군요. 감사합니다. ^_____^
-
이채성•2001.09.20 01:37제가 알기로는 이건 불가능 한것으로 알고 있습니다. 만약 필요하시다면 전역변수를 잡아서 클릭이 ...
-
매일웃자•2001.09.20 01:47잘 읽어보았습니다. 감사합니다. 제가 하려는 작업에 꼭 필요해서 말인데요... 약 100개정도의 메뉴아...
-
- 하병준
- •
- 2001.09.19 23:18
- 2 COMMENTS
- /
- 0 LIKES
-
사이비쥐 <;(●)~~•2001.09.20 00:09하병준 wrote: > 안녕하세요 제가 질문을 하고자 하는 것은 > > Pos을 사용을 하면 텍스트 파일의 찾...
-
홍세비•2001.09.19 23:57하병준 wrote: > 안녕하세요 제가 질문을 하고자 하는 것은 > > Pos을 사용을 하면 텍스트 파일의 찾...
Action명을 비교했더니 되더군요.
감사합니다. ^_____^