Q&A
- DBGrid에서 클릭한 셀의 필드명을 아는 방법은?
또 도움을 요청드리네요.
DBGrid의 옵션을 다음과 같이 주었는데요
[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
이렇게 하면 셀단위의 선택이아니라 한줄 단위의 선택이 되는데요.
그런데 문제는 셀을 클릭했을때 클릭이벤트에서
클릭한 셀의 칼럼명이 아니라 꼭 DBGrid의 첫번째 칼럼의
필드명을 가져오네요. 어떻게 해야 클릭한 셀의 필드명을 얻을수
있을까요.
물론 DBGrid의 옵션중 dgRowSelect, dgMultiSelect을 제거하면
클릭한 셀의 필드명을 가져옵니다.
미리 감사 드립니다.
예) 아래는 클릭이벤트에서 처리한 방법 입니다.
procedure DBGridCellClick(
Column: TColumn);
begin
ShowMessage(Column.FieldName);
end;
DBGrid의 옵션을 다음과 같이 주었는데요
[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
이렇게 하면 셀단위의 선택이아니라 한줄 단위의 선택이 되는데요.
그런데 문제는 셀을 클릭했을때 클릭이벤트에서
클릭한 셀의 칼럼명이 아니라 꼭 DBGrid의 첫번째 칼럼의
필드명을 가져오네요. 어떻게 해야 클릭한 셀의 필드명을 얻을수
있을까요.
물론 DBGrid의 옵션중 dgRowSelect, dgMultiSelect을 제거하면
클릭한 셀의 필드명을 가져옵니다.
미리 감사 드립니다.
예) 아래는 클릭이벤트에서 처리한 방법 입니다.
procedure DBGridCellClick(
Column: TColumn);
begin
ShowMessage(Column.FieldName);
end;
4
COMMENTS
-
-
답변에 감사드립니다.
그런데 저는 델파이3을 사용하고 있거든요. 그래서 그런지
DBGrid상에 있는 이벤트에는 MouseUp이 없네요.
님께서 말씀해주신 방법대로 하면 될 것 같은데,,,,
어떻게 하면 MouseUp 이벤트를 사용할수 있나요?
이벤트를 사용할 수 없다면 마우스포인트 좌표값을 얻는 방법은요?
답변 주셨는데 또 질문드리게 되어 죄송하네요.
그럼
홍성락 wrote:
> 델사 wrote:
> > 또 도움을 요청드리네요.
> >
> > DBGrid의 옵션을 다음과 같이 주었는데요
> > [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
> >
> > 이렇게 하면 셀단위의 선택이아니라 한줄 단위의 선택이 되는데요.
> >
> > 그런데 문제는 셀을 클릭했을때 클릭이벤트에서
> > 클릭한 셀의 칼럼명이 아니라 꼭 DBGrid의 첫번째 칼럼의
> > 필드명을 가져오네요. 어떻게 해야 클릭한 셀의 필드명을 얻을수
> > 있을까요.
> >
> > 물론 DBGrid의 옵션중 dgRowSelect, dgMultiSelect을 제거하면
> > 클릭한 셀의 필드명을 가져옵니다.
> >
> > 미리 감사 드립니다.
> >
> > 예) 아래는 클릭이벤트에서 처리한 방법 입니다.
> > procedure DBGridCellClick(
> > Column: TColumn);
> > begin
> > ShowMessage(Column.FieldName);
> > end;
> /////////////////////////////////////////////////////////////////////////////////
> 마우스다운에서 사용해보시죠
> procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> var
> CelRow : TGridCoord;
> begin
> CelRow := DBGrid1.MouseCoord(X, Y);
> Edit1.Text := DBGrid1.Columns[CelRow.x-1].FieldName;
> end;
-
델사 wrote:
> 답변에 감사드립니다.
>
> 그런데 저는 델파이3을 사용하고 있거든요. 그래서 그런지
> DBGrid상에 있는 이벤트에는 MouseUp이 없네요.
> 님께서 말씀해주신 방법대로 하면 될 것 같은데,,,,
> 어떻게 하면 MouseUp 이벤트를 사용할수 있나요?
> 이벤트를 사용할 수 없다면 마우스포인트 좌표값을 얻는 방법은요?
>
> 답변 주셨는데 또 질문드리게 되어 죄송하네요.
>
> 그럼
----------------------------------------------------------------------------------------
테스트해보세요
그리드의 마우스이벤트거 없을경우 화면상의 마우스위치에서
진짜 해당 컴포에서의 위치를 구한다음 셀의 위치를 찾는방법으로 했는데요...
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
xx, yy :integer;
PaCon : TControl;
begin
xx := DBGrid1.Left;
yy := DBGrid1.Top;
PaCon := DBGrid1.Parent;
while PaCon <> nil do begin
XX := XX + PaCon.Left;
YY := YY + PaCon.Top;
PaCon := PaCon.Parent;
end;
xx := Mouse.CursorPos.x-xx;
yy := Mouse.CursorPos.y-yy;
CelRow := DBGrid1.MouseCoord(xx,yy);
if CelRow.X > 0 then begin
Edit2.Text := DBGrid1.Columns[CelRow.x-1].FieldName;
Edit3.Text := DBGrid1.Fields[CelRow.x-1].AsString;
end;
end;
/////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////
> 홍성락 wrote:
> > 델사 wrote:
> > > 또 도움을 요청드리네요.
> > >
> > > DBGrid의 옵션을 다음과 같이 주었는데요
> > > [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
> > >
> > > 이렇게 하면 셀단위의 선택이아니라 한줄 단위의 선택이 되는데요.
> > >
> > > 그런데 문제는 셀을 클릭했을때 클릭이벤트에서
> > > 클릭한 셀의 칼럼명이 아니라 꼭 DBGrid의 첫번째 칼럼의
> > > 필드명을 가져오네요. 어떻게 해야 클릭한 셀의 필드명을 얻을수
> > > 있을까요.
> > >
> > > 물론 DBGrid의 옵션중 dgRowSelect, dgMultiSelect을 제거하면
> > > 클릭한 셀의 필드명을 가져옵니다.
> > >
> > > 미리 감사 드립니다.
> > >
> > > 예) 아래는 클릭이벤트에서 처리한 방법 입니다.
> > > procedure DBGridCellClick(
> > > Column: TColumn);
> > > begin
> > > ShowMessage(Column.FieldName);
> > > end;
> > /////////////////////////////////////////////////////////////////////////////////
> > 마우스다운에서 사용해보시죠
> > procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> > var
> > CelRow : TGridCoord;
> > begin
> > CelRow := DBGrid1.MouseCoord(X, Y);
> > Edit1.Text := DBGrid1.Columns[CelRow.x-1].FieldName;
> > end;
-
Mouse.CursorPos.x를 바로 사용 할 수 가 없어
약간 수정해서 문제를 해결 했습니다.
답변 고맙습니다.
홍성락 wrote:
> 델사 wrote:
> > 답변에 감사드립니다.
> >
> > 그런데 저는 델파이3을 사용하고 있거든요. 그래서 그런지
> > DBGrid상에 있는 이벤트에는 MouseUp이 없네요.
> > 님께서 말씀해주신 방법대로 하면 될 것 같은데,,,,
> > 어떻게 하면 MouseUp 이벤트를 사용할수 있나요?
> > 이벤트를 사용할 수 없다면 마우스포인트 좌표값을 얻는 방법은요?
> >
> > 답변 주셨는데 또 질문드리게 되어 죄송하네요.
> >
> > 그럼
> ----------------------------------------------------------------------------------------
> 테스트해보세요
> 그리드의 마우스이벤트거 없을경우 화면상의 마우스위치에서
> 진짜 해당 컴포에서의 위치를 구한다음 셀의 위치를 찾는방법으로 했는데요...
> procedure TForm1.DBGrid1CellClick(Column: TColumn);
> var
> xx, yy :integer;
> PaCon : TControl;
> begin
> xx := DBGrid1.Left;
> yy := DBGrid1.Top;
> PaCon := DBGrid1.Parent;
> while PaCon <> nil do begin
> XX := XX + PaCon.Left;
> YY := YY + PaCon.Top;
> PaCon := PaCon.Parent;
> end;
> xx := Mouse.CursorPos.x-xx;
> yy := Mouse.CursorPos.y-yy;
> CelRow := DBGrid1.MouseCoord(xx,yy);
> if CelRow.X > 0 then begin
> Edit2.Text := DBGrid1.Columns[CelRow.x-1].FieldName;
> Edit3.Text := DBGrid1.Fields[CelRow.x-1].AsString;
> end;
> end;
>
> /////////////////////////////////////////////////////////////////////////////////////////
> ////////////////////////////////////////////////////////////////////////////////////////
> > 홍성락 wrote:
> > > 델사 wrote:
> > > > 또 도움을 요청드리네요.
> > > >
> > > > DBGrid의 옵션을 다음과 같이 주었는데요
> > > > [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
> > > >
> > > > 이렇게 하면 셀단위의 선택이아니라 한줄 단위의 선택이 되는데요.
> > > >
> > > > 그런데 문제는 셀을 클릭했을때 클릭이벤트에서
> > > > 클릭한 셀의 칼럼명이 아니라 꼭 DBGrid의 첫번째 칼럼의
> > > > 필드명을 가져오네요. 어떻게 해야 클릭한 셀의 필드명을 얻을수
> > > > 있을까요.
> > > >
> > > > 물론 DBGrid의 옵션중 dgRowSelect, dgMultiSelect을 제거하면
> > > > 클릭한 셀의 필드명을 가져옵니다.
> > > >
> > > > 미리 감사 드립니다.
> > > >
> > > > 예) 아래는 클릭이벤트에서 처리한 방법 입니다.
> > > > procedure DBGridCellClick(
> > > > Column: TColumn);
> > > > begin
> > > > ShowMessage(Column.FieldName);
> > > > end;
> > > /////////////////////////////////////////////////////////////////////////////////
> > > 마우스다운에서 사용해보시죠
> > > procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> > > var
> > > CelRow : TGridCoord;
> > > begin
> > > CelRow := DBGrid1.MouseCoord(X, Y);
> > > Edit1.Text := DBGrid1.Columns[CelRow.x-1].FieldName;
> > > end;
(NOTICE) You must be logged in to comment on this post.
-
- 성낙균
- •
- 2001.12.26 21:28
- 2 COMMENTS
- /
- 0 LIKES
-
쩌비•2001.12.26 23:38델파이 5.0과 델파이 6.0 사이에 Variant를 정의하는 Unit이 틀린걸로 아는데요. 제가 틀렸나 쩝.. 하여...
-
성낙현•2001.12.27 02:03감사합니다. 거기서 프로그램이 진행되지 못했는데 쩌비님의 도움으로 해결했습니다. 고맙고요, 이렇게 ...
-
- 델사
- •
- 2001.12.26 21:25
- 4 COMMENTS
- /
- 0 LIKES
또 도움을 요청드리네요. DBGrid의 옵션을 다음과 같이 주었는데요 [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect] 이렇게 하면 셀단위의 선택이아니라 ...-
홍성락•2001.12.26 22:52델사 wrote: > 또 도움을 요청드리네요. > > DBGrid의 옵션을 다음과 같이 주었는데요 > [dgTitles,dg...
-
델사•2001.12.26 23:11답변에 감사드립니다. 그런데 저는 델파이3을 사용하고 있거든요. 그래서 그런지 DBGrid상에 있는 이...
-
홍성락•2001.12.26 23:59델사 wrote: > 답변에 감사드립니다. > > 그런데 저는 델파이3을 사용하고 있거든요. 그래서 그런지 ...
-
델사•2001.12.27 02:11Mouse.CursorPos.x를 바로 사용 할 수 가 없어 약간 수정해서 문제를 해결 했습니다. 답변 고맙습니다....
-
- Commom
- •
- 2001.12.26 21:20
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 21:33Commom wrote: > 안녕하십니까..!!어느덧 크리스마스도 지나고 올한해도 몇일 안남은거 같습니다..!! > ...
-
Commom•2001.12.26 23:58> > 필드 A,B,C 까지는 정상적으로 이상이 없이 저장이 되는데..필드 D에는 아무값도 > > 확인할수 가 없...
-
- 최성원
- •
- 2001.12.26 21:12
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 23:07최성원 wrote: > > 디비그리드에 SELECT문 결과를 보여주는데요... > > 마지막 레코드의 특정값을 읽...
-
- 궁금이
- •
- 2001.12.26 21:05
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 23:23궁금이 wrote: > 퀵리포에서 QRShape를 이용해서 세금계산서를 > 만들었는데.. > 미리보기하면은 잘 나...
-
궁금이•2001.12.27 20:09고맙습니다.. 님 말씀대로 하니깐 잘 되더군요.. 이건 때문에 무지 고민 많이 했는데 정말 고맙습니다....
-
- 왕초보
- •
- 2001.12.26 20:38
- 1 COMMENTS
- /
- 0 LIKES
-
한가해•2001.12.27 02:05database 스냅샵 이나 물리적 뷰을 사용하는 것이 좋겠군요. db가 update되는 즉시 뷰를 update합니다. g...
-
- mmx05
- •
- 2001.12.26 20:33
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.26 21:18안녕하세요. 최용일입니다. 답 다 나와 있는데요... GetClass로 클래스를 찾으려면 그 클래스가 등록...
-
- 고민
- •
- 2001.12.26 20:28
- 1 COMMENTS
- /
- 0 LIKES
-
이광환•2001.12.26 20:39고민 wrote: > text박스에서요 vb에서 sendkey+{end}와 같은역할을 하는게 델파이에서는 어찌해야하는지 ...
-
- 꾸벅이
- 2001.12.26 20:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 별찌
- •
- 2001.12.26 19:57
- 1 COMMENTS
- /
- 0 LIKES
-
vocallo•2001.12.28 19:53별찌 wrote: > 일반폼으로 만든 프로그램을 Web에서 보이도록 할려고 합니다. > 델파이로 ActiveX를 사용...
-
- 나상원
- 2001.12.26 19:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 콤포넌트 왕초보
- •
- 2001.12.26 18:54
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.26 21:35안녕하세요. 최용일입니다. 맨 위에것은 집합입니다. 여러개의 원소를 가질수 있고, 교집합/차집합 등의...
-
- 초보
- •
- 2001.12.26 18:43
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 20:10초보 wrote: > > except on E: EDBEngineError do 에서 자료가 중복되었을때 에러코드값을 가져오려고 ...
-
- 압스
- 2001.12.26 09:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 김우대
- 2001.12.26 09:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.12.26 09:36
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.26 19:16초보 wrote: > 델파이 소스에디터에서 왜 표시로 안되고 슬래시 로나오는지는지...알고싶어요..알려주세...
-
- 걸음마
- 2001.12.26 06:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보학생
- 2001.12.26 04:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 델친구
- •
- 2001.12.25 22:17
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.26 22:47안녕하세요. 최용일입니다. 구현부를 전체 다 삭제하고 선언부에서 Ctrl-Shift-C를 누르세요. 그럼 정렬...
-
- 따식이
- •
- 2001.12.25 13:56
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.26 22:41안녕하세요. 최용일입니다. 압축푸시고 보시면 DLL이라는 폴더에 두개의 dll파일이 있습니다. 이걸 프로...
> 또 도움을 요청드리네요.
>
> DBGrid의 옵션을 다음과 같이 주었는데요
> [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
>
> 이렇게 하면 셀단위의 선택이아니라 한줄 단위의 선택이 되는데요.
>
> 그런데 문제는 셀을 클릭했을때 클릭이벤트에서
> 클릭한 셀의 칼럼명이 아니라 꼭 DBGrid의 첫번째 칼럼의
> 필드명을 가져오네요. 어떻게 해야 클릭한 셀의 필드명을 얻을수
> 있을까요.
>
> 물론 DBGrid의 옵션중 dgRowSelect, dgMultiSelect을 제거하면
> 클릭한 셀의 필드명을 가져옵니다.
>
> 미리 감사 드립니다.
>
> 예) 아래는 클릭이벤트에서 처리한 방법 입니다.
> procedure DBGridCellClick(
> Column: TColumn);
> begin
> ShowMessage(Column.FieldName);
> end;
/////////////////////////////////////////////////////////////////////////////////
마우스다운에서 사용해보시죠
procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
CelRow : TGridCoord;
begin
CelRow := DBGrid1.MouseCoord(X, Y);
Edit1.Text := DBGrid1.Columns[CelRow.x-1].FieldName;
end;