안녕하세요?



디비그리드에 디비콤보박스를 위치시키려고 하는데

아래의 showmessage가 실행이 되지 않습니다.



결과적으로 포커스를 갖지 못하는 것 같습니다.

어떻게 해야 (디비그리드에서 옵션 설정을 어떻게....) 하는지 알고 싶습니다.



procedure Tgoomae_doc20.DBGrid1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if(gdFocused in state) then begin

showmessage('와 포커스다');

if(column.fieldname=DBcob_pstsuts.DataField) then begin

with DBcob_pstsuts do begin

left:=rect.left+dbgrid1.left;

top:=rect.top+dbgrid1.top;

width:=rect.right-rect.left;

visible:=true;

end;

end;

end;

end;



포거스야 제발 제발 ......