¡Caramba! De veras que hay
gente lista
Si no quieres usar las librerías RX puedes solucinar el problema con el DbLookupComboBox (apuntando al campo Lookup) y poniendo esto en el evento OnCreate del formulario:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
MyDataLink: TDataLink;
begin
for I := 0 to DBLookupComboBox1.ControlCount - 1 do
if DBLookupComboBox1.Controls[i] is TPopupDataList then
begin
MyDataLink := TDataLink(
DBLookupComboBox1.Controls[i].Perform(CM_GETDATALINK, 0, 0)
);
if MyDataLink <> nil then
MyDataLink.DataSourceFixed := False;
MyDataLink.DataSource := nil;
end;
Por cierto, este tipo de cosas las he encontrado en los foros de Borland con la búsqueda "
DbCtrlGrid DbLookupComboBox".
// Saludos