자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi stringgrid에 넣은 Image 클릭 이벤트 발생을 어떻게 해야 하나요?
2019.06.11 10:13
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요
간략하게 질문 드리겠습니다.
StringGrid에 이미지를 넣는데 까지는 성공 했습니다..
Image := TImage.Create(PreStrGrid);
Image.Parent := PreStrGrid;
Rect := PreStrGrid.CellRect(0, 2);
PreStrGrid.Objects[0, 2] := Image;
이런식으로 만들고
TImage(PreStrGrid.objects[0,2]).Picture.LoadFromFile('경로');
요렇게 이미지를 넣었는데
그리드에서 이미지를 클릭시 폼을 하나 띄우고 싶은데
StringGrid MouseDown 이벤트에서는 작동이 안되네요...
방법이 있을까요? 힌트 부탁 드립니다.
번호 제목 글쓴이 날짜 조회 수
공지
[프로그래밍 강의] 2021.6~2021.12
관리자 2015.01.22 15766
공지
유용한 관련 사이트
관리자2 2014.03.20 54580
공지
본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.
관리자 2012.01.10 97985
11
radphp xe2 에서 인쇄을 하는 방법 문의 합니다?
자이소 2014.05.10 1777
10
html5 builder에서 html문서 만들때 브라우저에서 한글이 깨집니다.
종달새 2014.02.28 3102
9
html5 buider 문의 드립니다.
씩 2012.12.14 2
8
HTML5 빌더에 대해 문의드립니다.
cyner 2012.09.20 4
7
radphp를 공부해 보려고 하는데요..
[1] 태랑 2012.07.12 7437
6
RadPHP 평가판에서 정품으로 바꾸려는데 어떻게 하나요?
관리자 2012.07.20 7053
5
글씨 크기
[1] 모든길 2012.05.12 9258
4
RAD PHP 개발과정 및 배포방법
[2] cdrd 2012.04.23 9618
3
그리드 연결
[1] 모든길 2012.04.13 8303
2
한글
[3] 모든길 2012.04.12 9256
1
RadPHP와 관련해서 스터디 할만한 자료는 없나요?
관리자 2012.04.10 8150
Delphi stringgrid에 넣은 Image 클릭 이벤트 발생을 어떻게 해야 하나요?
2019.06.11 10:13
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요
간략하게 질문 드리겠습니다.
StringGrid에 이미지를 넣는데 까지는 성공 했습니다..
Image := TImage.Create(PreStrGrid);
Image.Parent := PreStrGrid;
Rect := PreStrGrid.CellRect(0, 2);
PreStrGrid.Objects[0, 2] := Image;
이런식으로 만들고
TImage(PreStrGrid.objects[0,2]).Picture.LoadFromFile('경로');
요렇게 이미지를 넣었는데
그리드에서 이미지를 클릭시 폼을 하나 띄우고 싶은데
StringGrid MouseDown 이벤트에서는 작동이 안되네요...
방법이 있을까요? 힌트 부탁 드립니다.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | [프로그래밍 강의] 2021.6~2021.12 | 관리자 | 2015.01.22 | 15766 |
공지 | 유용한 관련 사이트 | 관리자2 | 2014.03.20 | 54580 |
공지 | 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. | 관리자 | 2012.01.10 | 97985 |
11 | radphp xe2 에서 인쇄을 하는 방법 문의 합니다? | 자이소 | 2014.05.10 | 1777 |
10 | html5 builder에서 html문서 만들때 브라우저에서 한글이 깨집니다. | 종달새 | 2014.02.28 | 3102 |
9 | html5 buider 문의 드립니다. | 씩 | 2012.12.14 | 2 |
8 | HTML5 빌더에 대해 문의드립니다. | cyner | 2012.09.20 | 4 |
7 | radphp를 공부해 보려고 하는데요.. [1] | 태랑 | 2012.07.12 | 7437 |
6 | RadPHP 평가판에서 정품으로 바꾸려는데 어떻게 하나요? | 관리자 | 2012.07.20 | 7053 |
5 | 글씨 크기 [1] | 모든길 | 2012.05.12 | 9258 |
4 | RAD PHP 개발과정 및 배포방법 [2] | cdrd | 2012.04.23 | 9618 |
3 | 그리드 연결 [1] | 모든길 | 2012.04.13 | 8303 |
2 | 한글 [3] | 모든길 | 2012.04.12 | 9256 |
1 | RadPHP와 관련해서 스터디 할만한 자료는 없나요? | 관리자 | 2012.04.10 | 8150 |
자문 자답입니다...휴..
TImage로 안하고 TBitmap으로 해서 하니 되네요..ㅎㅎ
MouseDown 이벤트가 발생 하네요...혹시 몰라 대강 소스 올려 봅니다.
Procedure SetBitmap;
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromfile(' PATH ');
StringGrid.Objects[0,0] := Bitmap;
end;
procedure TfmMain.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap(StringGrid.Objects[ACol, ARow]);
StringGrid.Canvas.Draw(Rect.Left, Rect.Top, Bitmap);
end;
요기서 궁금한게 SetBitmap 함수와 StringGridDrawCell 함수에서 Bitmap 을 Free 안해줘도 되는지 궁금하네요.....
Free하믄 에러가 나는데....아직 초보라 여기까지도 힘드네용...ㅠㅠ