Ver Mensaje Individual
  #3  
Antiguo 09-11-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¡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
Responder Con Cita