샬롬~

ㅡㅡ; 그럴리가??

지금 컴에 델파이가 없어서 직접 테스트 해보진 못하겠지만..

테이블하나,  룩업하나,  그리드하나,   데이터소스 하나를 사용하신거 맞나요?

테이블을 데이터 소스에 연결하고..

데이터 소스를 룩업과 그리드에 연결하신거죠?

그럼..둘중에 하나만 레코드가 바뀌면..현재 레코드가 바뀌는 이벤트가

데이터 소스 컨트롤에서 일어나는데....

그럼..룩업하고..그리드하고 똑같이 변화가 생길거 같은데요..

직접 테스트 해보진 않았지만..제 기억으론 이렇습니다..

다시 한번 확인해 보시구요..패치도 확인해 보십시오..^^;;

즐프~

그러고보니, 정말 하나의 데이타소스를 썼으니깐 디비그리드에서 레코드가 바뀌면 룩업도 같이 바뀌는게 맞을거 같은데.. 이상하네요.
룩업이 바뀌면 디비그리드의 레코드는 바뀌던데, 거꾸로 디비그리드를 선택할때엔 룩업이 안바뀌었어요. 그래서 제가 데이타소스체인지 이벤트에서 따로 KeyValue값을 주었던거거든요.
어, 뭐가 문제지....? -0-

샬롬...
데이터 소스의 데이터 체인지 이벤트에 코드를 작성해서 그랬네요..
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin

end;

아래..셀 클릭에 작성하시면 이상이 없이 잘 되는군요..
그런데..그리드 옵션에 Edit속성을 false로 해줘야 클릭 이벤트가 정상적으로 작동하는군요..
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   DBLookupComboBox1.KeyValue := ADOTable1.Fields.FieldByName(DBLookupComboBox1.KeyField).AsString;
end;


데이터 소스의 데이터 체인지 이벤트에 기술을 하면..

디비 룩업 콤보 박스의 상위 개체인 TDBLookupControl의 locationkey라는 프로시져가 실행되면서 룩업 콤보박스의 데이터 체인지 이벤트를 다시한번 타게 됩니다. 그래서 콤보박스 클릭시 나오는 리스트와 연결된 데이터 소스의 레코드 포인터가 맨 처음으로 이동하게 되더군요..

function TDBLookupControl.LocateKey: Boolean;
var
  KeySave: Variant;
begin
  Result := False;
  try
    KeySave := FKeyValue;
    if not VarIsNull(FKeyValue) and FListLink.DataSet.Active and
      FListLink.DataSet.Locate(FKeyFieldName, FKeyValue, []) then
    begin
      Result := True;
      FKeyValue := KeySave;
    end;
  except
  end;
end;

위에서 false가 리턴되게 되고..

{이건 룩업콤보의 우측삼각형 버튼을 클릭했을때..아래쪽으로 펼쳐진 모양의 리스트 박스를 나타내 주는 겁니다...}
procedure TDBLookupListBox.KeyValueChanged;
begin
  if ListActive and not FLockPosition then
    if not LocateKey then ListLink.DataSet.First;   //<<=== 이분에서 맨처음으로 포인터 이동...
  if FListField <> nil then
    FSelectedItem := FListField.DisplayText else
    FSelectedItem := '';
end;


이 프로시져에서..  
레코드 포인터가 맨 처음으로 이동되어 버리는 겁니다.

즐코~

아, 이렇게까지 자세히 설명해 주시다니 너무너무 감사해요.
움, 근데 저두 안되서리 이리저리 해보다가 셀클릭이벤트에도 넣어봤는데, 디비그리드의 에디트 속성을 True로 해줘야만 하기땜에 그것도 안되겠더군요.
아, 이대로 써야하는것인가!!
어쨌든, 설명 정말 감사합니다.
저도 뭐가 안될땐 고개만 갸우뚱하지 말고 클래스 소스를 뒤져보는 습관을 길드여야겠어요. ^^
그럼 즐프~

샬롬~

우선.. 많이 혼선을 드린거 같네요..ㅡㅡ; 지송스러버라..

결론부터 말하자면..님과 같은 현상이 발생하더군요..직접 해보니..
(델6, 윈98, mssql, ado)상태에서..

해서 TDBLookUpComboBox소스를 열어서 확인은 했죠..

그랬더니..  FieldItemIndex라는 넘이 있는데..
룩업 리스트를 보기위해 클릭할때..다시 0으로 돌아가 버리더군요..

해서..상위 객체의 메소드를 훝어 봤죠....

콤보박스에 삼각형 그려진 버튼을 클릭할때..리스트 박스를 아래에 붙여서
보여주는 작업을하는 부분을..

그랬더니..아니나 다를까..리스트 박스를 생성하면서 레코드셋을 맨 처음으로
이동하는 코드가 들어있더군요..

그런데..이상한 것은 콤보박스에서 작업을 햇을때는 이상이 없는데..

콤보박스의 .KeyValue :=  값  해서 바꿔준 경우는

다음번 클릭할때 다시 그 값을 인식을 못한다는 거죠...

원인을 찾아보고 있긴 한데...ㅡㅡ;

이거 버그인지..아니면..이게 정상적인 건지. 모르겠네요..

해결하면 다시 리플 달아주세영~~

즐프~