Ver Mensaje Individual
  #6  
Antiguo 28-10-2008
Avatar de StartKill
StartKill StartKill is offline
Miembro
 
Registrado: ene 2004
Posts: 299
Reputación: 23
StartKill Va por buen camino
Saludos,

Aca hay una solucion, no es mia, pero funciona , la acabo de probar.

Utilizando :
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
*-*-*-* TERCERA OPCION (la que se esta tratando de hacer ....)*-*-*-*
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*


Aca el enlace orignal :

http://groups.google.com/group/borla...aca7768f03afd8

Código Delphi [-]
procedure TFrm1.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; 
end;

Your friend,

StartKill
Lima-Perú
([email protected])
Responder Con Cita