Hola emeritos.
La verdad es que no entiendo el planteo, pero mirando el código, creo que deseas que se acepte cuando
Source es un
TDBEdit y el valor de MQcuaparti2['numero'] sea igual a 1.
Eso sería:
Código Delphi
[-]
procedure Tfrmcombates.DBEdit21DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept:= Source.ClassNameIs('TDBEdit') and (MQcuaparti2['numero'] = 1);
end;
Saludos