changhwan wrote:

> 다름이 아니라

> 수십개의 각각의 이미지들에다가 각각의 OnClick 이벤트를 주었는데

> TImage의 이벤트 속성중 온클릭 이벤트에다가 procedure 를 넣어주어야하는데

> 각각의 이미지들의 procedure를 같은 procedure를 설정하였습니다

> 그런데 문제는 이벤트가 발생하였을 시 그 procedure에서 이게 어디의 이미지에서 발생한 것인지 알아낼수 있는방법이 정말 궁금하구 그거 모름 저 죽을지두 ,,,,

> 즉 이게 어떤 이미지라는 걸 알 수 있는 방법이 무엇인지요

> 참고 *

> 저는 각각의 이미지를 배열에다 일일이 다넣었고

>

> 그 배열을 이용하고 자 합니다

> 약간의 소스를 보여드립니다

> Img[1]:=Image2;

> Img[2]:=Image3;

> Img[3]:=Image4;

> Img[4]:=Image5; // 이런식으로 배열을 넣었고

> procedure TForm1.ImgClick (Sender: Tobject);

> 모든 이미지에서 이벤트가 발생 했을때 위의 프로시져를 이용함니다 .

> 여기 프로시져에서 어떤 이미지가 이벤트를 발생했는지 알아낼 수 있나요 ??

> 정말 부탁드립니다 --'

> 꼭꼭 좀 자세한 설명을 흑흑

> 저번에 어디 모 정보 문화 출판사 델파이 저자님에게 물어 봤더니

> 어디 이상한 싸이트 알려주구 정말 성의 없게 답변해 주시더군요

> 넘 실망했읍니다 ..... 초보라구 그렇게 말했는데두 ....흑

> 꼭 좋은 하루 되세요 그럼 꾸벅

>



도움이 되었으면 합니다. 혹 저도 성의 없다는 말을 들을까 무섭군요.

사실 도움이 될까해서 가끔 답변을 하기도 하지만 요즘은 괜시리 무서버서 참는 편입니다. 어찌됐든 참고하세요.



이벤트부에 if (Sender as TImage).Name = '???' then 와 같이 하여

이벤트가 발생한 이미지의 이름을 알아낼 수 있습니다. 더불어 만일 이미지의 이름을

배열에 기록한 후 이벤트가 발생한 이미지의 이름을 알아내고자 한다면 다음과 같이

하면 되지 않을까요?

for i := Low(Img) to High(Img) do begin

//만일 배열의 수가 1..10이라면 for i := 1 to 10 do begin 이라 해도 되지요

if (Sender as TImage).Name = Img[i] then //이벤트가 발생한 이미지를 찾음

end;

정말 감사드립니다 .

유도삼님 좋은 하루 되시구요

좀전에 성급하게 매일 보낸거 사과 드리구

정말 우연하게 풀게