how to fix delphi dbgrid dropdown list problem

[clear1140]

I have a DBgrid and one column is a look up to a table. When the the drop down list is envoked and when the form is being resized or moved around, the list will still be shown at the same spot where it first was envoked. I don't know what seems to be the problem.

[iohos]

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

  Field: TField; State: TGridDrawState);

begin

  if (gdFocused in State) then

  begin

  if (Field.FieldName = DBLookupCombo1.DataField) then

  begin

  DBLookupCombo1.Left := Rect.Left + DBGrid1.Left;

  DBLookupCombo1.Top := Rect.Top + DBGrid1.top;

  DBLookupCombo1.Width := Rect.Right - Rect.Left;

  { DBLookupCombo1.Height := Rect.Bottom - Rect.Top; }

  DBLookupCombo1.Visible := True;

  end;

  end;

end;

hope dis helps

[Jyoti Ballabh]

procedure TForm1.DBGrid1D rawDataCell(Sen der: TObject; const Rect: TRect;

Field: TField; State: TGridDrawState) ;

begin

if (gdFocused in State) then

begin

if (Field.FieldNam e = DBLookupCombo1. DataField) then

begin

DBLookupCombo1. Left := Rect.Left + DBGrid1.Left;

DBLookupCombo1. Top := Rect.Top + DBGrid1.top;

DBLookupCombo1. Width := Rect.Right - Rect.Left;

{ DBLookupCombo1. Height := Rect.Bottom - Rect.Top; }

DBLookupCombo1. Visible := True;

end;

end;

end;

hope dis helps

the problem persists, after a repetitious use of the algorithm the grid "shows in the same place where it was first envoked".

[iohos]

that's impossible, spettro. I ran this using some random data (the rooster of the New England Patriots). The drop down list worked just fine even after making countless edits.

[Jyoti Ballabh]

The parentheses in the second last line of the program may not be required.

[iohos]

yup, can do without it.