Q&A
- 정~말 모르겠습니다...이미지를 동적으로 생성했을때..
Timage 타입의 배열을 선언해서 이미지를 동적으로 생성했습니다.
각 이미지에 click이벤트를 주고 싶어서
이벤트프로시저를 임의로 하나 선언을 하고
-----------------------------------------------------------
private
procedure ImageClick(Sender: TObject);
....
procedure TForm1.ImageClick(Sender: TObject);
begin
showmessage(inttostr(index));
end;
-----------------------------------------------------------
동적 이미지생성시에 그 이벤트프로시저를 참조 하도록 했습니다.
-----------------------------------------------------------
image[index] := TImage.create(self);
image[index].OnClick := ImageClick;
-----------------------------------------------------------
그런데 생성되는 모든 이미지가 하나의 이벤트프로시저로 가니까..
클릭이벤트를 발생시킨 이미지가 배열의 몇번째 이미지인지를 알 수가 없습니다.
도대체 어떻게 시도를 해봐야 문제가 해결될지..
이미지가 몇개가 생성될지도 모르는데..
무작정 이벤트프로시저를 미리 많이 만들어놓을 수도 없고...
아~~정말 난감합니다..
고수님들의 도움이 절실히 필요합니다..앙~
플리~즈~~~~~~~~
각 이미지에 click이벤트를 주고 싶어서
이벤트프로시저를 임의로 하나 선언을 하고
-----------------------------------------------------------
private
procedure ImageClick(Sender: TObject);
....
procedure TForm1.ImageClick(Sender: TObject);
begin
showmessage(inttostr(index));
end;
-----------------------------------------------------------
동적 이미지생성시에 그 이벤트프로시저를 참조 하도록 했습니다.
-----------------------------------------------------------
image[index] := TImage.create(self);
image[index].OnClick := ImageClick;
-----------------------------------------------------------
그런데 생성되는 모든 이미지가 하나의 이벤트프로시저로 가니까..
클릭이벤트를 발생시킨 이미지가 배열의 몇번째 이미지인지를 알 수가 없습니다.
도대체 어떻게 시도를 해봐야 문제가 해결될지..
이미지가 몇개가 생성될지도 모르는데..
무작정 이벤트프로시저를 미리 많이 만들어놓을 수도 없고...
아~~정말 난감합니다..
고수님들의 도움이 절실히 필요합니다..앙~
플리~즈~~~~~~~~
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 쩌비
- 2001.12.10 02:55
- 0 COMMENTS
- /
- 0 LIKES
-
- Sort
- •
- 2001.12.10 01:29
- 7 COMMENTS
- /
- 0 LIKES
-
국장실 미스고•2001.12.10 03:39
-
Sort•2001.12.10 05:12
-
국장실 미스고•2001.12.10 05:44
-
Sort•2001.12.10 18:47
-
어린왕자A•2001.12.11 04:14
-
국장실 미스고•2001.12.11 06:08
-
Sort•2001.12.11 18:05
-
- 유종근
- 2001.12.09 22:41
- 0 COMMENTS
- /
- 0 LIKES
-
- ClickTest
- 2001.12.09 14:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 체리
- •
- 2001.12.09 10:17
- 1 COMMENTS
- /
- 0 LIKES
-
씨나락•2001.12.09 11:40만일 그냥 free로 하셨으면 다음과 같이 고 쳐보세요 action := caFree; 체리 wrote: > 메인폼...
-
- 왕무식
- 2001.12.09 09:18
- 0 COMMENTS
- /
- 0 LIKES
-
- benjy
- •
- 2001.12.09 08:03
- 1 COMMENTS
- /
- 0 LIKES
-
박상윤•2001.12.13 07:10direct show를 사용하신다면... 해당핀의 인터페이스를 얻어 처리하심됩니다. 그렇지 않으시다면.. 자료...
-
- 아마글래머
- •
- 2001.12.09 04:01
- 1 COMMENTS
- /
- 0 LIKES
Timage 타입의 배열을 선언해서 이미지를 동적으로 생성했습니다. 각 이미지에 click이벤트를 주고 싶어서 이벤트프로시저를 임의로 하나 선언을 하고 ----------------------------------------------------------- private procedure Im...-
최용일•2001.12.09 08:10안녕하세요. 최용일입니다. 이미지 생성할때 Tag에 인덱스값을 주어서 판단하시면 될거 같네요... im...
-
- 초보자
- 2001.12.09 01:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 호성이
- •
- 2001.12.09 01:16
- 1 COMMENTS
- /
- 0 LIKES
-
ClickTest•2001.12.10 16:15SendMessage(종료시킬윈도우핸들, WM_CLOSE, 0, 0); 호성이 wrote: > WInexec함수를 사용해서 실행파일...
-
- 미나짱
- 2001.12.09 01:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이왕초보
- 2001.12.09 00:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 천명
- •
- 2001.12.08 23:54
- 2 COMMENTS
- /
- 0 LIKES
-
사발우성™•2001.12.10 18:05if not database1.InTransaction then database1.StartTransaction; try sql.Execsql; Database...
-
천명•2001.12.10 18:19제가 말한게 조금 잘못 얘기가 되었낭 보네요.. --;; 제가 말한 트랜젝션의 시작은 TQuery 를 사용한 ...
-
- Sort
- 2001.12.08 23:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 구상도
- 2001.12.08 23:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 최인재
- •
- 2001.12.08 22:23
- 1 COMMENTS
- /
- 0 LIKES
-
기동이•2015.06.08 23:01질문에 질문을 해서 죄송한데요.. 워드에 작성한 내용 그대로 출력이 가능한가요?? PrintOut 메소드를 어...
-
- 급한데모르는이
- •
- 2001.12.08 21:22
- 5 COMMENTS
- /
- 0 LIKES
-
깨비처럼•2001.12.10 22:39WinExec(PChar('B.exe id'), SW_SHOW); 하면 될것같군요. 받을때는 System.param[0]으로 받으시면 될것같...
-
깨비처럼•2001.12.11 02:40깨비처럼 wrote: > WinExec(PChar('B.exe id'), SW_SHOW); 하면 될것같군요. > 받을때는 System.paramStr...
-
급한데모르는이•2001.12.10 22:52깨비님 ... 말씀대루 했는데 .. 잘 안돼네요... 다시 한번.. 혹시 이것에 대한 예제가 있으면 부탁드립니...
-
어린왕자A•2001.12.11 04:31Application.Paramstr(i)이라고 있습니다. i번째 인수값을 가져옵니다. 만일 notepad test.txt라고 실행...
-
ClickTest•2001.12.09 14:26절대 고수는 아니구요... 몇가지 방법이 있겠네요... 첫째 ini 파일 이용... 둘째 Registry 이용....
-
- 헬프미
- 2001.12.08 21:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 호좁델피언
- 2001.12.08 21:04
- 0 COMMENTS
- /
- 0 LIKES
-
- prosit
- •
- 2001.12.08 20:30
- 3 COMMENTS
- /
- 0 LIKES
-
prosit•2001.12.10 18:36두 분께 감사드립니다. 많은 도움이 되었습니다.
-
명탁•2001.12.09 12:28if fromlog.showmodal := mrok then begin //로그인 폼에서.modalresult 값이 mrok일때 end; prosit...
-
초보임당•2001.12.08 22:05흠 nomal 폼을 기준으로여... 일단 메인폼을 제외한 폼을 available form으로 넘기시고여...아시져? proj...
이미지 생성할때 Tag에 인덱스값을 주어서 판단하시면 될거 같네요...
image[index] := TImage.create(self);
image[index].OnClick := ImageClick;
image[index].Tag := Index;
procedure TForm1.ImageClick(Sender: TObject);
begin
showmessage(inttostr( TImage(Sender).Tag ));
end;
^^ 항상 즐코하세요...
아마글래머 wrote:
> Timage 타입의 배열을 선언해서 이미지를 동적으로 생성했습니다.
> 각 이미지에 click이벤트를 주고 싶어서
> 이벤트프로시저를 임의로 하나 선언을 하고
> -----------------------------------------------------------
> private
> procedure ImageClick(Sender: TObject);
>
> ....
>
> procedure TForm1.ImageClick(Sender: TObject);
> begin
> showmessage(inttostr(index));
> end;
> -----------------------------------------------------------
> 동적 이미지생성시에 그 이벤트프로시저를 참조 하도록 했습니다.
> -----------------------------------------------------------
> image[index] := TImage.create(self);
> image[index].OnClick := ImageClick;
> -----------------------------------------------------------
> 그런데 생성되는 모든 이미지가 하나의 이벤트프로시저로 가니까..
> 클릭이벤트를 발생시킨 이미지가 배열의 몇번째 이미지인지를 알 수가 없습니다.
>
> 도대체 어떻게 시도를 해봐야 문제가 해결될지..
> 이미지가 몇개가 생성될지도 모르는데..
> 무작정 이벤트프로시저를 미리 많이 만들어놓을 수도 없고...
> 아~~정말 난감합니다..
>
> 고수님들의 도움이 절실히 필요합니다..앙~
> 플리~즈~~~~~~~~
>
>