김동섭 wrote:

소스를 포함한 답변을 드립니다요~ 디비콤보는 아니지만 콤보박스를

디비그리드에서 활용한 프로그램이에요.... 이렇게 쓰시는게 아주 좋을거 같군요...^^



아래 예제는 Del3로 개발한 금융기관에서 쓰는 프로그램의 소스일부입니다....

만약 더 필요하신것이 있으시면 소스를 팍팍 제공해드리지요....

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

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

begin

if (gdFocused in State) then

if DBG1.SelectedField.fieldName = 'STAT' then

begin

CB_m_stat.Left := Rect.Left + DBG1.Left;

CB_m_stat.Top := Rect.Top + DBG1.Top;

CB_m_stat.Width := Rect.Right - Rect.left;

CB_m_stat.Height := Rect.Bottom - Rect.Top;

end

else if DBG1.SelectedField.fieldName = 'GJ_STAT' then

begin

CB_stat.Left := Rect.Left + DBG1.Left;

CB_stat.Top := Rect.Top + DBG1.Top;

CB_stat.Width := Rect.Right - Rect.left;

CB_stat.Height := Rect.Bottom - Rect.Top;

end

else if DBG1.SelectedField.fieldName = 'OWN' then

begin

CB_own.Left := Rect.Left + DBG1.Left;

CB_own.Top := Rect.Top + DBG1.Top;

CB_own.Width := Rect.Right - Rect.left;

CB_own.Height := Rect.Bottom - Rect.Top;

end

else if DBG1.SelectedField.fieldName = 'MGR' then

begin

CB_mgr.Left := Rect.Left + DBG1.Left;

CB_mgr.Top := Rect.Top + DBG1.Top;

CB_mgr.Width := Rect.Right - Rect.left;

CB_mgr.Height := Rect.Bottom - Rect.Top;

end

end;



procedure TForm1.DBG1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key = vk_f4 then

if DBG1.SelectedField.FieldName = 'STAT' then

begin

CB_m_stat.Visible := True;

CB_m_stat.SetFocus;

PostMessage(CB_m_stat.Handle, WM_KEYDOWN, VK_F4, 0);

end

else if DBG1.SelectedField.fieldName = 'GJ_STAT' then

begin

CB_stat.Visible := True;

CB_stat.SetFocus;

PostMessage(CB_stat.Handle, WM_KEYDOWN, VK_F4, 0);

end

else if DBG1.SelectedField.fieldName = 'OWN' then

begin

CB_own.Visible := True;

CB_own.SetFocus;

PostMessage(CB_own.Handle, WM_KEYDOWN, VK_F4, 0);

end

else if DBG1.SelectedField.fieldName = 'MGR' then

begin

CB_mgr.Visible := True;

CB_mgr.SetFocus;

PostMessage(CB_mgr.Handle, WM_KEYDOWN, VK_F4, 0);

end;

end;



procedure TForm1.CB_m_statExit(Sender: TObject);

var

i : Smallint;

s, tmp_s : string;

begin

if CB_m_stat.Text <> '' then

begin

i := 0;

s := CB_m_stat.Text;

if s[1] = '[' then

tmp_s := Copy(s, 2, 4)

else tmp_s := Copy(s, 1, 4);

while i <= CB_m_stat.Items.Count - 1 do

begin

if tmp_s = Copy(CB_m_stat.Items[i], 2, 4) then

begin

CB_m_stat.Text := CB_m_stat.Items[i];

break;

end;

Inc(i);

end;

end;

if i = CB_m_stat.Items.Count then

begin

MessageDlg('찾고자 하는 데이터가 없습니다.',mtError,[mbOk],0);

CB_m_stat.Text := '';

CB_m_stat.SetFocus;

end;

end;



procedure TForm1.CB_m_statKeyPress(Sender: TObject; var Key: Char);

begin

if key = #13 then

begin

if DS1.state in [dsInactive, dsBrowse] then

DS1.Edit;

DBG1.SetFocus;

P64E00_Q1m_stat2.Value := Copy(CB_m_stat.Text, 2, 2);

P64E00_Q1m_stat3.Value := Copy(CB_m_stat.Text, 4, 2);

P64E00_Q1stat.Value := CB_m_stat.Text;

PostMessage(DBG1.Handle, WM_KEYDOWN, VK_RIGHT, 0);

CB_m_stat.Text := '';

CB_m_stat.Visible := False;

end;

end;









> 고수님들께...

> 디비그리드 안에 디비콤보를 넣을 수 없나여...

> 방법을 좀 갈켜 주세요...

질문에 답해 주셔서 감사합니니다.



제가 원하는 필드에 디비콤보가 들어오나여.



제가 지금 필요한 것은 디비그리드 안에서...값을 입력받고... 보여 주고 싶은데요...



보여 줄때는 회사명으로 보여 주고요...

저장될때는 회사코드로 저장이 됩니다...



이것을 해결하기 위해선... 사용자가 입력하기 편하게 하기위해...회사명을 콤보에

넣어주면...그 곳에서 회사를 찾을 것이고...저장할 때는 회사코드로 저장을 하고 싶거든여...



님께서...보내 주신 자료가지고 해결이 가능한지요...

귀찮더라도... 답변 부탁드릴께요...

그럼 수고 하세요...*^^*

김동섭 wrote:

제가 답변해 드린 source가 그렇게 사용되고 있는 source입니다. 잘 응용해 보세용~



> 질문에 답해 주셔서 감사합니니다.

>

> 제가 원하는 필드에 디비콤보가 들어오나여.

>

> 제가 지금 필요한 것은 디비그리드 안에서...값을 입력받고... 보여 주고 싶은데요...

>

> 보여 줄때는 회사명으로 보여 주고요...

> 저장될때는 회사코드로 저장이 됩니다...

>

> 이것을 해결하기 위해선... 사용자가 입력하기 편하게 하기위해...회사명을 콤보에

> 넣어주면...그 곳에서 회사를 찾을 것이고...저장할 때는 회사코드로 저장을 하고 싶거든여...

>

> 님께서...보내 주신 자료가지고 해결이 가능한지요...

> 귀찮더라도... 답변 부탁드릴께요...

> 그럼 수고 하세요...*^^*