DBGrid에 Lookup field를 만들고...



다음과 같은 코드를 했습니다.



procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if ( gdFocused in State ) then

begin

if Column.fieldName = 'ref_name' then

begin

with DBLookupComboBox1 do

begin

Left:= Rect.Left + dbGrid1.Left;

Top:= Rect.Top + dbGrid1.Top;

Width:= Rect.Right - Rect.Left;

Visible:= True;

end;

end;

end;

end;



위와 같은 코드를 사용하면 분명히 DBGrid에 DBL. (DBLookupCombo를 약어화)



가 생깁니다.



문제는 커서를 이용하여 해당 Column으로 이동하면 Combo가 생기는데...



마우스로 해당 Column을 클릭하면 나타나지 않고...



제가 원래 만들었던 lookup field의 콤보박스가 생깁니다.



어흑~ 제가 원하는 것은 마우스로 클릭해도 dbl. 을 원합니다.



고수님들 혹시 방법이 없을까여?